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INHALT 


Kappel Te z 10, en en a Er 11 
Klein aber oho 

1.1 Clock - Stellt eine Einführung in die flexible Zeitfunktion des C64 dar, mit der 
die Uhrzeit auf besondere farbige Weise abgefragt werden kann. 

1.2 Graph - Erstellt eigene farbige dreidimensionale Bildschirmanzeigen 

1.3 Texted - Ein eigenes einfaches Textverarbeitungssystem. 


Kapitel2..........2222220.. EEE ER ERNUERe 35 
Programmierhilfen 

2.1 Merge - Mit diesem Programm können nützliche Moduln auf Band gesichert 
und bei Bedarf miteinander verknüpft werden. 

2.2 Delete - Mit dieser Routine kann ein Originalprogramm geladen und können 
Teile des Programms gelöscht werden, um neuen Anwendungen gerecht zu wer- 
den. 

2.3 Renumber - Mit dieser Routine zur Neunumerierung erhalten die Programme 
ein professionelles Aussehen. 


Kapllel3r nr. ee ee aa are 45 
Der farbige C 64 

3.1 Artist - Mit dieser Routine kann der Bildschirm als Staffelei benutzt werden, 
indem farbige Grafikzeichen gezeichnet, gelöscht und geändert und auf Band ge- 
sichert werden können. 

3.2 Characters - Mit dieser Routine können eigene Sonderzeichen erstellt wer- 
den, wobei die vom Benutzer definierte Zeichenmöglichkeit benutzt wird. 

3.3 Sprites - Mit dieser Routine können hochauflösende Bilder problemlos auf 
dem Bildschirm hin- und herbewegt werden. 

3.4 Hi-Res - Diese Routine stellt eine Bit-Raster-Grafik vor, mit der ein beliebiger 
Punkt bzw. ein beliebiges Bildelement auf dem Bildschirm festgelegt werden 
kann. 


Kapilel4. 23.4 ana 85 
Der C64 als Sekretärin 

4.1 Unifile- Diese Routine benutzt die Ablagemöglichkeiten des Commodore 64, 
wobei der Benutzer bis zu 500 Einträge speichern, nach benannten Elementen 
suchen und diese ändern oder löschen kann. 

4.2 Unifile Il - Dem vorhergehenden Programm ähnlich, befaßt sich diese Routine 
mit weniger strukturierten Dateien und führt die Mehrfachsuch-Routine ein. 

4.3 Nnumber - Diese Routine befaßt sich mit numerischen Daten, wenn Element- 
namen zusammen mit einer Mengeneinheit benutzt werden müssen. 


Kaplleldtr ax ns ae ee ee ee ea 123 


Schule zu Hause 


5.1 Multiq - Dieses Programm erläutert, wie eine Reihe von Fragen und Antworten 
eingegeben werden, die die Grundlage für Tests mit mehreren Auswahlmöglich- 
keiten bilden. 

5.2 Words - Wie Multiq, allerdings werden die Fragen hier in Form von Bildern ge- 
stellt. 

5.3 Typist - Mit diesem kurzen, klaren Programm kann der Benutzer seine Fähig- 
keiten im Maschinenschreiben verbessern. 


Kapitel6...::..=..4=0 22 00% a 147 
Hochentwickelte Finanzfunktionen mit Mikrocomputern 

6.1 Banker - Mit diesem Programm können 

Finanztransaktionen in Form eines klaren Kontoauszugs dargestellt werden. 

6.2 Accountant - Eine einfache Möglichkeit, zur Verfolgung von Kontobewegun- 
gen. 

6.3 Budget - Ein leistungsfähiges und flexibles Hilfsmittel, mit dem Finanzen über 
einen Zeitraum von 12 Monaten geplant werden können. 


Kaprlelf..2288.s 3224 ee 185 
Music 

Der C64 verfügt über insgesamt drei Tonsynthesizer. 

Mit diesem Programm wird erläutert, wie eigene Melodien entwickelt und andere 
Programme in diesem Handbuch attraktiver gestaltet werden können. 


PROGRAMMHINWEISE 


Bei dem Commodore 64, wie bei anderen Commodore-Systemen, unterliegt eine 
Reihe von Funktionen 'Steuerzeichen', die in normalen Zeichenfolgen enthalten 
sind und beim Ausdrucken der Zeichenfolge wirksam werden. Steuerzeichen 
werden normalerweise dadurch erkannt, daß sie invers dargestellt werden (die 
Hintergrund- und Vordergrundfarben sind bei der Zeichenposition umgekehrt). 
Die Funktionen, die von derartigen Zeichen gesteuert werden, umfassen die Cur- 
sorposition, die Druckfarbe, die Ein- und Ausschaltung der inversen DArstellung 
(RVS), die Rückführung des Cursors in die Ausgangsposition und das Löschen 


des Bildschirms. 


BEZEICHNUNG SYMBOL TASTEN ODER CHRES{HKR) 
[SCHIRM NEU] "a" = <SHIFT>+SCLR> CHRSC147) 
EHOME ] "3" = <CLR> CHRS(19) 
ICRSR HOCH] "I" = <SHIFT>+<XCRSR> CHRS(1459 
[ERSR RUNTERI "EM" = <CRSR> CHR&$(17) 
[ERSER LINKE] "mw" = <SHIFT>+<SCRSR> CHRS(1S57) 
[ERSR RECHTSI "WW" = {CRSR> CHR$S(293) 
TSCHWARZ ] "ww" = <CTRL>+<1> CHR$(144? 
[WEISS] "3" = SCTRL>+HS2> CHR&$(5? 
[ROT] "a" = <CTRL>+S3> CHRS$S(23) 
[CYAN] "= SCTRL>+tS4> CHRS«159} 
[PURPUR] "4" = <SCTRL>+I> CHR$(136? 
[GRUEN]I "u" = <SCTRL>+<SG> CHR$S(39) 
[ELAUI "a" = <SCTRLY+XT> CHRS«31D 
IGELB] "Mi" = <CTRL>+<S> CHR$(159) 
[REVERS EIN] "a" = <SCTRL>?+S9> CHR&$S(19) 
[REVERS AUS] "mw" = <CTRL>+SO> CHRE&\146) 
TORANGE] "= <Cerrilr CHRS$S«129)3 
[BRAUM] "RE" = <C=>+t£2> CHR$«143) 
[HELLROT] "SB" = <C=}+t<3> CHRS&<(15899 
[SRAU 11 "@" C=ar+t4r CHRS(151)D 
IGRAU 2] "a" = <C=’+«K3> CHR$«152) 
[HELLGRUEN] "m" = <C=>+s6> CHR$«(153) 
[HELLBLAU] "u" = <C=r+t<7)> CHR&(154) 
[SRAU 3] "= <Cerr<k8> CHRS«155) 
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"COMMODORE - TASTE '. 


VORWORT 


Dieses Handbuch und die Serie, zu dem es gehört, wurde geschrieben, um eine 
offensichtliche Lücke in den Handbüchern für Besitzer von Homecomputern zu 
schließen. Fehlten doch Bücher, die den Traum eines jeden Computerbesitzers 
wahr machen, daß die neue Maschine nämlich nicht nur ein Spielzeug oder eine 
Einführung in das Silikon-Zeitalter 

darstellt, sondern ein Hilfsmittel, das die verschiedensten Aufgaben übernimmt 
und eine Vielzahl von Möglichkeiten eröffnet. Die meisten auf dem Markt befindli- 
chen Bücher befassen sich entweder mit Allgemeinplätzen oder gehen von dem 
Wunsch - vielleicht sogar von der Möglichkeit - zum Experimentieren aus. 

Ich wollte ein Buch schreiben, das auf einer soliden Sammlung von Programmen 
beruht, die eigentlich jeder haben möchte - Programmen, die Bereiche wie Da- 
tenspeicherung, Finanzverwaltung, Grafik, Musik, Haushaltsverwaltung und Aus- 
bildung abdecken. Die Besprechung der Programmiertechniken ergibt sich aus 
den Programmen selbst und nicht aus einer Liste von Dingen, die erlernt werden 
müssen. Ich hoffe, daß Sie dieses aus diesem Wunsch entstandene Buch als hilf- 
reich empfinden werden. Es soll nicht nur als Möglichkeit gesehen werden, neue 
Programmiertechniken zu erlernen, sondern auch als eine Sammlung von Pro- 
grammen selbst, die alle unabhängig auf Fehler geprüft wurden und eine Vielzahl 
von Anwendungen bieten, die bislang nur Benutzern zur Verfügung standen, die 
bereit waren, eine teure kommerzielle Software zu erwerben, oder die in der Lage 
waren, hochentwickelte Programme für den eigenen Bedarf zu schreiben. 

Neben den Programmen in diesem Handbuch verfügen Sie über die einzelnen 
Elemente der Programme - denn die Programme in diesem Handbuch sind in 
'modularer Form’ geschrieben. Dies bedeutet, daß sie aus eindeutig identifizier- 
baren funktionalen Einheiten bestehen, die sobald sie einmal verstanden wurden, 
aus dem Programm herausgenommen und für den eigenen Zweck eingesetzt 
werden können. Bei jedem Modul werden die neue Aspekte genau kommentiert. 
Außerdem wird beschrieben, wie die Programme getestet werden, nachdem die 
einzelnen Moduln eingegeben wurden. 

Sie werden in diesem Handbuch zwar auch auf Abschnitte stoßen, in denen allge- 
meine Themen besprochen werden. Sie werden jedoch feststellen, daß es sich 
hier nicht um ein Buch handelt, das gelesen, sondern das benutzt werden soll. 
Die Relevanz der Kommentare und Empfehlungen wird erst deutlich, wenn die auf 
den ersten Blick sehr langen und komplexen Programme einmal eingegeben 
werden. Hier verhindert die modulare Lösung, daß Programme zu verwirrenden 
Fehlerquellen werden, so daß unbedingt empfohlen wird, die Moduln wie vorge- 
schlagen zu testen, insbesondere im Anfangsstadium. 

Schließlich muß der Erfolg oder Mißerfolg dieses Buches jedoch danach beurteilt 
werden, ob mit ihm die Arbeit mit dem Commodore 64 einfacher wird oder nicht. 


Dieses Buch ist in erster Linie ein Buch für den C64. Wenn auch die allgemeine 
Struktur des Handbuchs auf den beiden Vorgängern in dieser Serie beruht, so 
wurden die Programme doch angepaßt und neue Programme hinzugefügt, um 
die besonderen Möglichkeiten des C64 voll auszuschöpfen. Wenn es auch eine 
harte Arbeit ist, ein Buch wie dieses zu schreiben, war es doch schön, zu sehen, 
was der C64 aus Programmen gemacht hat, die bei weniger leistungsfähigen Sy- 
stemen wesentlich weniger aufregend sind. Die Benutzung dieser Programme ist 
nicht ganz so arbeitsaufwendig - das Ergebnis ist jedoch genau so aufregend. 
Schließlich darf keine Einführung in ein Buch wie dieses ohne Dank an Commo- 
dore UK für die zur Verfügung gestellten Einrichtungen abgeschlossen werden. 
Nicht zuletzt bin ich Steve Beats in der Hauptverwaltung von Commodore UK für 
seine Geduld bei der Beantwortung der dümmsten Fragen zu Dank verpflichtet, 
die sich bei der Benutzung des C64 für mich eröffneten. 


David Lawrence 


Nach dem großen Erfolg, den DavidLawrencemitseinem Buch in England gehabt 
hat, bringen wirauch für den deutschen Leser dieses Standardwerk heraus, dasfür 
das Programmieren nichtnuram Commodore 64 sondern ebenso auch am 'größe- 
ren Bruder’, dem neuen Commodore 128, seine Aktualität behalten wird. 


Commodore Verlagsabteilung 
Sachbuchredaktion 


KAPITEL 1 


KLEIN ABER OHO 


Die Programme in diesem Handbuch sollen mit einer Vielzahl wichtiger Anwen- 
dungen eingesetzt werden. Da viele der Anwendungen komplex sind, gilt dies 
auch für viele der Programme. Dies bedeutet jedoch nicht, daß nützliche Pro- 
gramme nicht auf kleinem Raum komprimiert werden können. Als Einführung in 
die gewählte Lösung werden in diesem Kapitel drei relativ kurze Programme vor- 
gestellt, die alles andere als ein Spielzeug sind. 


1.1 Clock 


Dieses Programm ist eine recht amüsante Einführung in einige der Funktionen 
des Commodore 64 - es ist problemlos einzugeben, macht Spaß, wenn es auf 
dem Bildschirm vor der ganzen Familie vorgeführt wird, und nutzt die Möglichkei- 
ten des C64 für die flexible Zeichenfolgen- und Bildschirmbearbeitung voll aus. 
Das Programm erfüllt genau die Funktion seines Namens, einer Uhr. Allerdings 
werden bei der Ausführung des Programms weder ein Ziffernblatt noch ein Zei- 
ger sichtbar. Die 64 Uhr benutzt zwei über den Bildschirm laufende Linien, die 
eine von links nach rechts für die Minuten und die andere von oben nach unten 
für die Stunden. Auf diese Weise wird der Bildschirm in verschiedene Farbberei- 
che unterteilt. All dies ist nur möglich, da der C64 über eine flexible Zeitfunktion 
verfügt, die auf direktem Wege aus dem Programm heraus festgelegt und gele- 
sen werden kann. 


Clock: Variablentabelle 


cs Anfangsadresse des Farbspeichers 

DT$ Formatierte Anpassung von TI$ 

H Stundenwert, in Bildschirmeinheiten unterteilt 

M Minutenwert, in Bildschirmeinheiten unterteilt 

M1$,M2$ Zweifarbige Zeichenfolgen, mit denen die Stunden- und Minutenwerte 
angezeigt werden 

SS Anfangsadresse des Bildschirms 


TI$ Eine Systemvariable, die die Zeit nach dem internen Takt enthält. 


11 


MODUL 1.1.1 


11028 REMBIOROISSRO RK 

KERKK 

11818 REM UHR STELLEN UND BILODSCHRIM AUF 

BAUEN 

118298 REMIS K 

ZEIRKYH 

110358 FOKE S3258,0:POKE Ss281l,1 

110848 PRINT "WIGRUENIBBITTE GEBEN SIE DI 

E STUNDEN EIN (aa-239:"7: INPUT H$ 

11959 PRINT "SIROTIBITTE GEBEN SIE DIE M 
INUTEN EIN 69-5953: ": INPUT M& 

llesa TIE=SHE+MSH"OO" 

1197& PRINT "WIREVERS EINITSCHWARZ ] Ss 
19 15 20 25 30 35 48 45 50 55 68 " 
11a5g S5=-1024:C5=55296:FOR I=a TO 24 
118998 POKE CS+49%1,0:POKE SS+40%x1,1608 
illaa FOKE CS+498%1+1,8:POKE 55+40%1+1,16 

& 

il11la POKE CS+4a#1I+38,9:POKE SS+40x1+38, 
160 

111298 POKE C5+498*x1+39,8:POKE SS+t4AxI+39, 
168 

11132 NEXT I 

11142 PRINT "3":FOR I=1 TO 11:PRINT "ELRE 

VERS EIN]J"F7FMIDSKSTREUII,2I:PRINT:NEXKT 
11158 PRINT "ITREVERS EINI">MID$S(STRSCI), 

2); 


Mit diesem Modul kann der Benutzer die Zeit in Stunden und Minuten (12-Stun- 
den-Takt) eingeben. Mit ihm wird der Zeitgeber festgelegt und danach die Uhrzeit 


angezeigt. 


Kommentar 


Zeile 11030: Zwei besonders nützliche Speicheradressen: 53280 - definiert die 
Farbe der Bildschirmumrahmung neu, 53281 definiert die Farbe des Bildschirm- 
hintergrunds neu. Beide können während der Ausführung eines Programms so- 
fort zurückgesetzt werden. In diesem Fall wird die Umrahmung wieder schwarz 


und der Bildschirmhintergrund wieder weiß angezeigt. 
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Zeilen 11040-11060: Die Stunden und Minuten werden in Form von zweistelligen 
Zahlen eingegeben. Danach werden sie addiert und wird 00 für die Sekunden hin- 
zugefügt. Dem System wird mitgeteilt, daß dies TI$ ist. Es setzt den internen Takt 
dann sofort so zurück, daß ab dieser Zeit gezählt wird. 


Zeile 11070: Der Bildschirm wird gelöscht. Die Bildschirmfarbe wird auf schwarz 
festgelegt. Außerdem wird die inverse Anzeige festgesetzt. Danach werden die 
Zahlen am Anfang des Bildschirms ausgedruckt. 


Zeilen 11080-11130: Die schwarzen Umrahmungen des Uhrzeitbereichs werden 
nun an den Rand des Bildschirms gesetzt. Wird direkt am Bildschirmrand ge- 
druckt, so ist es häufig bequemer, Zeichen mit POKE auf den Bildschirm zu set- 
zen, da dadurch verhindert wird, daß die Druckposition von einer Zeile zur näch- 
sten springt. Um den Bildschirm erfolgreich mit POKE zu füllen, muß mit zwei 
Adressen gearbeitet werden, einer direkt innerhalb des Bildschirmspeichers 
selbst (Adressen 1023-2023) und einer anderen innerhalb des Farbspeichers 
(55296-56295). Mit dieser Schleife werden die ersten beiden Zeichen und die letz- 
ten beiden Zeichen der 25 Zeilen auf dem Bildschirm mit einem Zeichencode von 
160 (einem inversen Leerzeichen) und die entsprechende Adresse im Farbspei- 
cher mit Null gefüllt, wodurch diese Zeichenposition schwarz angezeigt wird. 


Zeile 11140: Der Cursor wird wieder in die Ausgangsposition bewegt und die 
Stunden werden entlang der linken Seite des Bildschirms angezeigt. Der letzte 
Wert wird separat mit einem abschließenden Semikolon ausgedruckt, so daß der 
Bildschirm nicht nach oben läuft, da auf der untersten Bildschirmzeile gearbeitet 
wird. 


Testen von Modul 1.1.1 


Hierzu wird eine temporäre Zeile 11160 GOTO 11160 eingefügt und das Modul 
ausgeführt. Sie werden aufgefordert, die Stunden und Minuten einzugeben. Da- 
nach wird die Umrahmung der Uhr des Zifferblattes auf dem Bildschirm ange- 
zeigt. Durch die temporäre Zeile wird gewährleistet, daß der Bildschirm nicht 
nach oben läuft und READY ausdruckt, sobald das Modul beendet ist. 


MODUL 1.1.2 

122220 REMIS ak akak ak 
K 

1281E REM BERECHNUNG UND AUSGABE DER ZEI 


T 
129298 REMIOSOKSOHK KR AIR 
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# 
129839 M=INTCKVAL<CMIDESCTIES,3,273+08.8)%375 
B) 
12044 H=2xVAL<MID$S(CTIS,1,29) 
12058 IF M>=39 THEN LET H=H+1 
12868 IF H>=24 THEN LET H=H-24 
12078 IF M=8 THEN LET M=1 
128328 Mi$="BBIL PURPURITREVERS EIN] 
" 
12839 LET MIS=LEFT$CMI$,M+4)+"LROTI"+RIG 
HT$<(M1$,36-M) 
ı1z1ie9 M2&="BBIIBLAUITREVERS EIN] 
121lO LET M2$=LEFT$(M2$,M+4) +" [WEISSI"+R 
IGHT$<M2$,36-M) 
12128 PRINT "34": 
12130 IF H>@ THEN FOR I=1 TO H:PRINT MI$ 
:NEKT 
121480 IF H<s23 THEN FOR I=H+1 TO 23:PRINT 
M2S:NEKT 
1215a PRINT M2$; 
1216&6 PRINT "SCHWARZ I SIDEaDDDe 
2; 
12178 DT$S=LEFT$S(CTI$,23+" "+MID$(T1$,3,2 
3+" "+RIGHTS$S(ITIS,2) 
12188 FOR I=1 TO LEN“DT$):PRINT MID$(DT&$ 
‚I, "mM; :NEHT 
12196 GOTO 12030 


Mit diesem Modul werden die Werte abgeleitet, anhand derer der interne Takt an- 
gezeigt werden kann. Außerdem wird die Zeit in zwei Formen angezeigt. 


Kommentar 


Zeile 12030: Auf dem Bildschirm stehen 36 Leerzeichen zur Verfügung, nachdem 
die Umrahmungen gezeichnet wurden. Auf diese Weise muß die Anzahl von Mi- 
nuten durch 60/36 (5/3) dividiert werden, um die richtigen Einheiten zu erhalten, 


mit denen über den Bildschirm gegangen werden kann. 


Zeile 12040: Auf dem Bildschirm stehen 24 Zeilen zur Verfügung, so daß die Stun- 


den nur mit 2 multipliziert zu werden brauchen. 
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Zeile 12070: Das Programm zeigt stets Minuten an, so daß bei der vollen Stunde 
der Minutenwert erhöht wird, um eine Einheit anzugeben. 


Zeile 12080: M1$ ist gleichbedeutend mit zwei Cursorbewegungen nach rechts 
plus dem dunkelroten Steuerzeichen und dem Steuerzeichen für die inverse An- 
zeige, gefolgt von 36 Leerzeichen. Beim Ausdrucken ergibt dies eine purpurfar- 
bene Linie. 


Zeile 12090: M1$ wird nun geändert, so daß es gleichbedeutend mit den vier er- 
sten Steuerzeichen plus M Leerzeichen, einem roten Steuerzeichen und dann 
den restlichen Leerzeichen ist. Dadurch wird eine neue Zeichenfolge erstellt, die 
die Farbe an einem durch den Wert von M definierten Punkt ändert. 


Zeilen 12100-12110: Dasselbe Verfahren wird für M2$ ausgeführt, das blau be- 
ginnt und weiß endet. 


Zeilen 12130-12150: M1$ wird für so viele Zeilen ausgedruckt, wie Stunden vor- 
handen sind; M2$ wird auf den restlichen Zeilen ausgedruckt. Die beiden Zei- 
chenfolgen definieren so einen Rahmen zwischen verschiedenen Farbbereichen, 
die dem Wert von H unterliegen. 


Zeile 12160: Der Cursor wird in die Ausgangsposition bewegt. Die Druckposition 
wird um etwa ein Drittel in der vorletzten Spalte des Bildschirms nach unten be- 
wegt, wobei die Druckfarbe auf schwarz festgesetzt wird. 


Zeile 12170: DT$ ist nun als TI$ definiert, wobei zwischen die Stunden-, Minuten- 
und Sekundenwerte zwei Leerzeichen eingefügt werden. Während des Pro- 
gramms hat das System TI$ ständig aktualisiert, so daß es stets die laufende Zeit 
enthält. 


Zeile 12180: DT$ wird entlang der rechten Seite des Bildschirms ausgedruckt. 
Hier wird jeweils ein Zeichen ausgedruckt und der Cursor dann nach unten und 
zurück bewegt. 


Testen von Modul 1.1.2 


Nun sollte die Uhr laufen, wobei vier verschiedene Farbrechtecke die Linien für 
Stunden und Minuten markieren. Die Zeit wird digital auf der rechten Seite des 
Bildschirms angezeigt. 

Trotz der Beschreibung sind höchstwahrscheinlich in der vorgenommenen Ein- 
gabe einige Fehler enthalten. Ist dies bei diesem Programm noch nicht der Fall, 
so wird es bei späteren Programmen so sein. Anhand der Anfragen glaube ich, 


15 


daß die meisten Besitzer von Homecomputern am Anfang Probleme haben, der- 
artige Fehler zu beheben. Vielleicht sind hier einige grundlegende Richtlinien von 
Hilfe: 


1. Nutzen Sie die Ihnen zur Verfügung stehende Hilfe maximal. Wird eine Fehler- 
meldung angezeigt, so berücksichtigen Sie diese und halten die Zeile fest, in der 
der Fehler aufgetreten ist, sowie die Art des Fehlers. 

2. Das Programm sollte nicht noch einmal ausgeführt werden, um zu sehen, ob 
der Fehler auch beim zweiten Mal auftritt. Läuft dann nämlich alle glatt, haben Sie 
die Chance verpaßt, den Fehler sofort zu beheben. 

3. Benutzen Sie den direkten Modus (Befehle werden direkt über die Tastatur 
und nicht über Programmzeilen eingegeben), um die Werte sämtlicher Variablen 
in den Zeilen auszudrucken, die einen Fehler aufzuweisen scheinen. Ein seltsa- 
mer Wert zeigt häufig den Weg zu dem Fehler. Eine große Anzahl von nahezu 
nicht feststellbaren Fehlern sind einfach auf die falsche Eingabe eines Variablen- 
namens zurückzuführen, beispielsweise auf die Eingabe von | für 1. 

4. Vollziehen Sie das Programm im Kopf oder auf Papier nach, wobei einfache 
Werte benutzt werden, so daß Sie genau sehen, was das Programm an dieser 
Stelle tun muß. 

5. Nehmen Sie Änderungen nicht zu schnell vor, bevor Sie sich nicht sicher sind, 
daß es sich hier um die einzige Änderung handelt, die vorgenommen werden soll. 
Nachdem Sie eine Änderung in eine Zeile eingeben, verschwinden sämtliche Da- 
ten und somit die Möglichkeit, weitere Prüfungen vorzunehmen, ohne das Pro- 
gramm erneut ausführen zu müssen. 

6. Saven Sie das Programm regelmäßig, wenn Sie Fehler feststellen und/oder 
neue Zeilen hinzufügen. Viele Fehler in den endgültigen Programmen ergeben 
sich aus Änderungen, die in ein Programm eingegeben, jedoch niemals auf Band 
festgehalten wurden. Alle meine Programme beginnen mit den drei folgenden 
Zeilen: 


1GOTO3 
2 SAVE "XXXX”:STOP 
3 REM 


Mit diesen drei Zeilen können Programme mit dem Befehl 'GOTO 2' gesaved wer- 
den (vorausgesetzt ’XXXX’ wird durch den Programmnamen ersetzt). Daraus er- 
gibt sich außerdem der Vorteil, daß ich meine Programme stets mit GOTO 1 star- 
ten kann, anstatt mich an die erste Zeilennummer des Hauptprogramms erinnern 
zu müssen. 

Beim Entwurf und bei der Eingabe von Programmen macht jederman Fehler. Der 
Unterschied besteht einfach darin, ob man es lernt, mit diesen Fehlern fertig zu 
werden oder nicht. 
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Zusammenfassung 


Ob Sie die Uhr nun mögen, können nur Sie beurteilen. Ich persönlich finde das 
Programm recht attraktiv. Unabhängig von der Uhr sind die Techniken der Auftei- 
lung von Zeichenfolgen und der Änderung des Bildschirm und des Farbspeichers 
innerhalb des Programms mit POKE in einer Vielzahl von Programmen sehr nütz- 
lich, so daß es sich durchaus lohnt, das Programm einzugeben und zu verstehen, 
wie es funktioniert. 


1.2 GRAPH 


Möchten Sie dieses Programm verstehen, so können Sie nichts besseres tun, als 
den Karton zu betrachten, in dem der Commodore 64 geliefert wurde. Dort sehen 
Sie ein farbiges, dreidimensionales Balkendiagramm. Mit dem vorliegenden Pro- 
gramm soll versucht werden, das Programm zu reproduzieren, mit dem dieses 
Diagramm erstellt wurde. Ich sage versucht, da ich nach erfolgreicher Reproduk- 
tion des Diagramms auf dem Karton festgestellt habe, daß die Daten, mit denen 
gearbeitet wurde, sorgfältig ausgewählt wurden, um die Grenzen der eng ge- 
packten Balken zu verdecken. Andere Daten führten zu Grafikzeichen, bei denen 
die Balken Löcher in die benachbarten Balken schlagen, so daß das Ganze weit 
weniger attraktiv aussieht, als auf dem Karton dargestellt. 

Dieses Programm ist also ein Kompromiß, der zwar eine weniger eng gepackte 
Anzeige erzeugt, jedoch mit beliebigen Daten benutzt werden und dennoch gut 
aussehen kann - so gut, daß Sie nach Beendigung der Eingabe Ihre Familie rufen 
werden, um sie mit Ihrem Können zu beeindrucken. 

So farbig und praktisch werden die erzeugten Anzeigen fraglos viele Anwendun- 
gen finden. Darüber hinaus bietet das Programm eine einfache Einführung in die 
Sicherung von Daten auf Magnetband und das spätere erneute Laden dieser Da- 
ten. 


Graph: Variablentabelle 


co$ Aus drei Zeichen bestehende Zeichenfolge, mit der die Farbe der ver- 
schiedenen Balken in dem Diagramm festgelegt wird. 

F$ Formatierfolge für Cursorzeichen nach rechts. 

F1$,F3$ Formatierfolgen für Cursorzeichen nach unten. 

F2$ Aus F$ abgeleitete temporäre Zeichenfolge. 

HH(2,6) Matrix mit Daten für die Grafik. 

NB Anzahl von voreinander stehenden Reihen (1-3). 

ND Anzahl von Spalten entlang der Horizontalachse (1-6). 

NH$ Name der Horizontalachse. 

NV$(2) Namen für jede separate Reihe. 
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TT$ 


UV 


MODUL 1.2.1 


Temporäre Zeichenfolge, mit der das Ausdrucken der Namen der vertika- 
len Achse formatiert wird. 

Zahl, die von jeder Einheit auf der vertikalen Achse dargestellt werden 
soll. 


11880 REMEE FASO aka 
11e19 REM DATENE INGABE 

110820 REMIaKOK KORK ka aha ak ko 
112308 POKE 53281,15:INPUT "JLSCHWARZ IWO 
LLEM SIE VON KASSETTE LADEN (J-N):"7Q$ 
119848 IF Q$="T" THEN 12428 

11052 PRINT "SERPARRBERBBEBIREVERS EINITE 
ROTIGRAPH" 

I11ie60 FRINT "BISCHWARZ JES GIBT 193 VERTIK 
ALE EINHEITEN." 

11878 PRINT "MIBLAUIBITTE GEBEN SIE DAS 
MASS EINER EINHEIT EIN.” 

11886 INPUT "MASS: "FUY 

11898 INPUT "MIROTINAME DER HORTZONTALEN 
ACHSE : "3 NH$ 

111989 PRINT "JBILSCHWARZISIE KOENNEN EINS 
BIS SECHS SPALTEN WAEHLEN. " 

11119 INPUT "WIEVIELE MOECHTEN SIE :"F’N 


D 


11128 PRINT "MMIGRUENIBIS ZU DREI REIHEN 
SIND MOEGLICH." 
11138 INPUT "WIEVIELE MOECHTEN SIE :"’N 


B 


11148 FOR I=a TO NB-1i 

11159 PRINT "BIGRUENINAME DER YERTIKALEN 
ACHSE "> I+17: INPUT NVYSCI9:NEXT I 

11169 DIM HH(2,6> 

1117&a PRINT "W"7:FOR I=8 TO NB-i 

11188 FOR J=1 TO ND 

1119A PRINT "WERT FUER REIHE"; 1I+17;" SPA 


LTE" JS": 


112088 IF 


ZU GROSS. 


"7:INPUT T 
INT<T/UVY>>19 THEN PRINT "BUWERT 
":GOTO 11198 


1121& HH{I,JD=ST:NEXT J,I 
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Mit diesem sehr direkten Modul soll die Eingabe von Daten ermöglicht werden, 
die für das Erstellen und die Beschriftung der Grafik benutzt werden. Anstatt den 
Benutzer aufzufordern, die Höchst- und Mindestzahlen für den Wertebereich ein- 
zugeben und danach die Einheiten zu berechnen (was zu äußerst seltsamen Ein- 
heiten führen kann), muß der Benutzer bei diesem Programm angeben, wieviele 
Einheiten der eingegebenen Daten von jeder vertikalen Einheit 

in der Grafik dargestellt werden sollen. Der Horizontalachse und den Reihen mit 
den dreidimensionalen Pfeilern werden Namen zugewiesen, wobei von hinten be- 
gonnen wird. Schließlich werden Daten je nach der vom Benutzer ausgewählten 
Struktur angefordert. 


Testen von Modul 1.2.1 


Hier braucht nur das Modul ausgeführt zu werden, um die Syntax auf Richtigkeit 
zu überprüfen. Bis jetzt kann noch nichts gezeichnet werden. 


MODUL 1.2.2 


12808 REM Rack 
129820 REM GRAPH ZEICHNEN 

12838 REMAKE X 
12240 POKE 53281,9:PRINT "LBRAUN ] Maps 
12050 FS= "RnB" 

120608 FOR I=1 TO 4:PRINT F#s "WLREVERS EI 
N] W:FS=SF$+ 
"W":NEXT 

12070 PRINT "EEBEBILLWEISS] 
":REM ZEILE MIT 38 ZEICH 








EN 

122820 FOR I=1i TO 193:PRINT "IBREBE _": 
12898 PRINT " 

":NEX&T 

121a& PRINT "3",:FOR I=I TO 4:PRINT "Ma 


"= 
2 


12i11d PRINT " 
„":NEXT:REM ZEILE MIT 28 ZEICHEN 
i212a Fis="3 








JII[GRUENJILPURPUR I" 
12158 PRINT 
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NHS} 

1214a FOR H=2 TO NB-1:PRINT "ERHNNBNEEN :; 
MIDS(F$,1,2*%CH+1297MIDSCCOS$.,H+1,197 
12159 TTE=NVYECH)+" #"+STRESCUVI:FOR I=1 T 
O LEN<TTS) 

12168 PRINT MID$(CTT$,1,195 "IB"; :NEXTI,H 
12178 PRINT "Zpleieieii 1 SERRLEDEIETEDN | © HEIEBETRIEIENS: 
A" 

121804 F3$=F1$:FOR H=a TO NB-1:PRINT MID$ 
«CO$,H+1,19 

1219 F2S=LEFTSIF$,8+4%CND-1>+H3:PRINT F 
1$;F2$7 

12208 FOR I=ND TO 1 STEP-1L:IF INTCHHSH,I 
I>/UV>=8 THEN 12276 

12218 FOR J=1 TO INTCHHCH,IT>ZUVDI+H 

12228 IF INTCHHSH,IPFUV)=8B THEN 12270 
12238 IF J=i THEN PRINT "TERAUNIJITREVERS 
EIN] W":MIDS<CO&$,H+1,127"| [REVERS AUS] 


ur} 
? 


122428 IF J>1 THEN PRINT " I TREVERS EINIJI 
[REYERS AUSI"? 

12245 REM ZEICHEN SIND "1. .„IREYERS EIN] 
«I. „EREVERS AUS]1...."7 

12250 NEXT J 

12268 PRINT " [WIREVERS EINJI %W 

12278 PRINT:F2S=LEFTE$(F2$,LENIF2$)-4):PR 
INT Fi$’F2&; :NEXT I 

12288 Fi$=Fis+"m" 

12292 FES=SLEFTSIF$F,3+4#HCND-LII:PRINT F3$ 

»Fe33 

i23a& NEsST H 

12318 FOR I=1 TO ND:PRINT F33> 

12320 F2OS=LEFTSCFS,9+4%KCI-19):PRINT F2$ 
:FOR J=1 TO NB 

12338 IF J>1 OR HHs2,1-19=98 THEN PRINT " 
[BRAUNIJITREVERS EIN]IW; 

12348 PRINT "MI"; :NEST I,I 

12358 GET AS: IF A$="" THEN 12350 


Dies ist ein besonders leistungsfähiges Modul, das nicht auf einer klaren Gruppe 
von Methoden aufgebaut ist, sondern einfach auf den Bedingungen, die meiner 
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Meinung nach in der Praxis erfüllt werden müssen, um eine attraktive Darstellung 
der Grafik zu erzielen. 


Kommentar 


Zeilen 12040-12060: Der Bildschirmhintergrund ist auf die schwarze Farbe fest- 
gelegt. Die braune Grundlage, auf der die Grafik steht, wird eingezeichnet. 


Zeilen 12070-12110: Das Raster, das den Grafikbereich umgibt, wird gezeichnet. 
Einheiten werden an den Seiten markiert und Linien werden quer gezeichnet, um 
die fünf Einheitenebenen zu markieren. 


Zeilen 12140-12160: Mit diesen drei Zeilen wird eine Druckposition in der oberen 
rechten Ecke des Bildschirms festgelegt. Außerdem werden die Namen der drei 
Reihen entlang dem Bildschirm in den Farben ausgedruckt, die den Reihen 
selbst entsprechen. Die Bildschirmposition wird anhand eines Datenpostens aus 
F$ bestimmt. Die Farbe wird bestimmt, indem jeweils ein anderes der drei Steuer- 
zeichen für die Farbe bei jeder Ausführung der Schleife ausgedruckt wird. 


Zeilen 12180-12300: In diesem Abschnitt werden drei Schleifen aufgerufen. Mit 
der Schleife H wird festgelegt, wie viele Reihen voreinander gezeichnet werden. 
Mit ihr wird auch ein Steuerzeichen für die Farbe aus CO$ ausgegeben und be- 
stimmt, wie viele Cursorzeichen nach unten ausgedruckt werden, wobei die Rei- 
hen dementsprechend nach unten bewegt werden. Mit der Schleife | wird festge- 
legt, wie viele Spalten über die Bildschirmbreite ausgedruckt werden. Mit der 
Schleife J wird festgelegt, wie hoch ein bestimmter dreidimensionaler Block ist. 


Zeile 12190: Die horizontale Druckposition am Anfang jede Reihe (die Reihen 
werden von rechts nach links gezeichnet) wird anhand der Reihe berechnet - 
jede Reihe wird über eine andere Reihe bewegt, so daß die drei Reihen ein dreidi- 
mensionales Aussehen erhalten. 


Zeile 12200: Eine Spalte wird nicht gedruckt, wenn das entsprechende Matrixele- 
ment in der Matrix HH gleich Null ist. 


Zeilen 12230-12240: Am Ende jeder Spalte wird das schräge Ende ausgedruckt, 
durch das die Spalte so aussieht, als stünde sie auf der Fläche. 


Zeile 12260: Ist die Spitze der Spalte erreicht, so wird die schräge Spitze hinzuge- 
fügt. 


Zeile 12270: Bei der nächsten Spalte werden vier Zeichen von der Zeichenfolge 
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für den Cursor nach rechts subtrahiert, so daß die neue Druckposition definiert 
wird. 


Zeile 12280: Die vertikale Druckposition wird nach unten bewegt, bevor die näch- 
ste Reihe ausgedruckt wird. 


Zeilen 12310-12340: Beim Ausdrucken der Reihen wurden die unteren Enden der 
Spalten zerstört. Sie werden jetzt ausgefüllt. 


Zeile 12350: Die Grafik bleibt auf dem Bildschirm angezeigt, bis eine Taste betä- 
tigt wird. 


Testen von Modul 1.2.2 


Auch hier wieder ein einfaches Ausführen des Programms, bei dem geprüft wird, 
ob die Bildschirmanzeige richtig aussieht. Sollte es zu Problemen kommen, so 
wird die Anzahl von Reihen, und vielleicht sogar die Anzahl von Spalten, auf Eins 
beschränkt, um die Fehleranalyse zu vereinfachen. Die Funktion jeder der Schlei- 
fen wird separat betrachtet, um festzustellen, welche der Schleifen den Fehler er- 
zeugt. Dieses Modul ist relativ schwierig auszutesten. Sind Sie also der Meinung, 
daß das Problem durch eine Änderung in einer der Zeilen gelöst werden könnte, 
auch wenn Sie nicht feststellen können, an welcher Stelle Sie von der oben ange- 
führten Liste abgewichen sind, so nehmen Sie die Änderung ruhig vor und prüfen 
das Ergebnis - nichts an dieser oder einer anderen Stelle in desem Handbuch ist 
heilig. 


MODUL 1.2.3 


12360 INPUT "IBIHWEISSIWOLLEN SIE DIE DAT 

EN SPEICHERN £ INDIE "ZOS:IF Q$="N" THENE 

ND 

12378 INPUT "KASSETTE EINLEGEN, DANN IR 

EYERS EINIRETURNIREVERS AUSI --"7QS:R#$=C 

HRS(13) 

1238a OPEN 1,1,1,"GRAPH" 

12338 PRINT#1,NB/R$F/NEHRSFNHESREFUV 

ı124aA FOR I=s@ TO NB-1:PRINTH1,NVYECII:FOR 
J=8 TO NE:PRINTRL,HHSI,IJIENEXT J,1 

12410 CLOSEI:END 

12428 INPUT "IIEGRUENIKASSETTE EINLEGEN, 
DANM IREVERS EINIJRETURNIREVERS AUSI --" 

:Q$:DIM NYEFIZE),HH(2,63 
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12430 OPEN 1,8,8,"GRAFH" 

12448 IMPUT#1,NB,ND,NH$,UV 

1245€ FOR I=8 TO NB-1:INPUTH1,NVSCII:FOR 
J=8 TO ND: INPUT#1,HHXI,JI:NEAXT J,1I 
12468 CLOSE1:G0T0 12009 

izea47ca GCTO 12476 


Nachdem nun die Grafik definiert wurde, können die Daten auf Band gespeichert 
werden, anstatt sie zu verlieren und später neu eingeben zu müssen. Mit diesem 
Modul können die Daten gesichert und später wieder aufgerufen werden. Dieses 
Modul soll die Bandspeicherung insofern so einfach wie möglich gestalten, als es 
Ihnen die Zeit gibt, das Band richtig einzulegen, bevor mit dem Laden oder Si- 
chern begonnen wird. 


Kommentar 


Zeile 12380: Mit dieser Zeile wird eine Datei geöffnet, in die die Daten gesetzt 
werden sollen. In diesem Fall ist der Speicherplatz ein Kassettenrecorder. Die 
drei Zahlen stellen folgende Angaben dar: 


a) Die Nummer der Datei - bei jeder Anweisung, Daten in einer Datei zu spei- 
chern, muß die Dateinummer angegeben werden. 

b) Die Einheitennummer (das Anlagenteil, in dem die Daten empfangen werden 
sollen), wobei 1 den Kassettenrecorder darstellt. 

c) Den Dateityp - 1 bedeutet, daß es sich hier um eine Datei handelt, in die Daten 
gespeichert werden, und nicht um eine Datei, aus der Daten genommen werden. 


NB, ND, NH$ und UV werden in die Datei (auf Band) gespeichert. Hier sollte die 
Benutzung der Variablen R$ beachtet werden. Bei der Speicherung von Daten 
auf Band ist der C64 etwas anspruchsvoll, was die Trennung der einzelnen Ele- 
mente voneinander betrifft. Werden sie einfach durch Kommas voneinander ge- 
trennt, so kann dies zu Fehlern führen, wenn die Daten erneut geladen werden. 
R$ wurde in Zeile 12370 als CHR$(13) definiert, den Code für RETURN. Wird die- 
ser Code zwischen die einzelnen Elemente gesetzt, so ist gewährleistet, daß sie 
richtig voneinander 

getrennt sind. 


Zeile 12400: Die einzelnen Feldelemente werden nacheinander in die Datei ge- 
druckt. 


Zeile 12410: Nachdem die Speicherung von Daten in einer Datei beendet ist, muß 
die Datei mit CLOSE geschlossen werden. Geschieht dies nicht, so kommt es 
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beim nächsten Öffnen einer Datei mit derselben Nummer zu einem Fehler. 


Zeile 12420: Dies ist der Teil des Moduls, mit dem die Daten wieder in den C64 ge- 
laden werden. Der einzige Unterschied zwischen den Spezifikationen für die bei- 
den Dateitypen besteht darin, daß diese Datei den Dateityp O0 aufweist. Dies be- 
deutet, daß es sich hier um eine Datei handelt, aus der Daten genommen werden. 


Zeilen 12440-12450: Die Daten, die in die Datei eingegeben wurden, werden nun 
wieder aufgerufen. Der sicherste Weg für das Erstellen einer Laderoutine besteht 
in der Änderung der Zeilennummern der SAVE-Routine und in der Änderung der 
PRINT-Befehle in INPUT-Befehle. Auf diese Art und Weise wissen Sie, daß die 
Routine die Daten genau in der Reihenfolge wiederaufnimmt, in der sie gespei- 
chert wurden. Werden die Daten in der falschen Reihenfolge herausgenommen, 
so führt dies nicht nur zu einem unsinnigen Programm, sondern ein Fehler kann 
auch zu einem Programmstopp führen. 


Testen von Modul 1.2.3 


Bei diesem Modul wird einfach getestet, ob Daten in das Programm eingegeben, 
auf Band gesichert und dann wieder geladen werden können. 


Zusammenfassung 


Dieses Programm ist ein Tribut an die Grafikmöglichkeiten und die Möglichkeiten 
der Bildschirmbearbeitung des Commodore 64. Nach der Eingabe werden Sie 
feststellen, daß es gar nicht so schwierig ist, Schleifen und einfache Berechnun- 
gen dazu zu benutzen, Formen und offensichtlich feste Gegenstände an be- 
stimmten Stellen auf dem Bildschirm zu zeichnen. Außerdem werden Sie feststel- 
len, daß mit dieser Art der Anzeige Informationen mit Abstand am wirksamsten 
übermittelt werden können. 


1.3 TEXTED 


Das letzte Programm in diesem Kapitel ist ein Versuch, einige der einfacheren 
Funktionen eines Textverarbeitungssystems in einem relativ kurzen und unkom- 
plizierten Programm zu vermitteln. Das Programm hält selbstverständlich den 
Vergleich mit einem professionell geschriebenen, auf dem Maschinencode ba- 
sierenden Textverarbeitungssystem nicht aus und ich hätte es auch nicht dazu 
benutzt, ein Buch wie dieses zu schreiben. Und sei es nur, weil Commodore UK 
mir eine Kopie des erstklassigen Easyscript Programms für diesen Zweck zur 
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Verfügung gestellt hat. Dennoch, das Programm funktioniert, und ich würde und 
habe es für viele Zwecke einer Schreibmaschine vorgezogen, da es bei der Ein- 
gabe und Bearbeitung von Texten vor der endgültigen Ausgabe auf Papier über- 
aus flexible Möglichkeiten bietet. Verfügen Sie natürlich über keinen Drucker, so 
müssen Sie sich schnell einen besorgen, um das Programm maximal ausnutzen 


zu können. 


Texted: Variablentabelle 


A$ 
CH 
FNA(P) 


FNB(P2) 
LL 

P 

P2 

PL 

SP 


SS 


T$ 
T1$ 


TEXT$(500) 
TT$ 


x 


MODUL 1.3.1 


Eingegebene Textzeile 

Zeichencode unter dem blinkenden Cursor 

Berechnet die Speicherposition des blinkenden Cursors in dem gerade 
eingegebenen Text 

Berechnet die Speicherposition des Bearbeitungs-Cursors im Haupttext 
Anzahl von Textzeilen im Haupttext 

Position des blinkenden Cursors in der gerade eingegebenen Zeile 
Position des Bearbeitungscursors auf dem Bildschirm 

Zeilennummer des Bearbeitungs-Cursors im Haupttext 

Anzahl von Leerstellen, die beim Formatieren am Zeilenende zur Verfü- 
gung stehen 

Zeilennummer der ersten Zeile des gerade angezeigten Teils des Haupt- 
textes 

Letztes eingegebenes Zeichen bei der Eingabe einer neuen Textzeile 

Als Befehl in dem Modul zur Verschiebung der Bearbeitungszeile einge- 
gebenes Zeichen 

Hauptmatrix für die Speicherung des Textes 

Vorübergehender Speicherplatz für Zeilen, die in den Haupttext eingege- 
ben werden 

Anzahl von Textzeilen, die aus dem Textstapel ausgegeben werden, der 
in den Haupttext eingefügt wurde. 


11809 REM 

11810 REM INITIALISIERUNG 

128808 REM 

128108 PRINT"W"F:DIM TEX-TSCSOO>:LL=1:PL=i 
128298 TEXTEIOI=S"IGELBI CI II II VTT 
vVvVvVvV UV VVVVV 

12854a TEXTSKI)="LGELBILREVERS EINITEEN 
«<UTUWVVVVVVVVVVVVVNREVER 


5 AUS]I" 
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128420 DEF FNA(PI=1LAE4HEORIOH+HF 
128568 DEF FNB<P2)=1924+4084P2 
12862 GOSsuB i4i1ld 


Mit diesem Modul werden die Hauptvariablen initialisiert und die Textanfangs- 
und Textendemarken in die Hauptmatrix gesetzt. 


MODUL 1.3.2 


12380 REIHE 
ı1391& REM ZEILE EDITIEREN 

13922 REMISKBISIBISK ka 
isa3a A&=" " 

13904@ P=&:PRINT "THELLELAUIS 
"sas 

13958 CH=PEEK<CFNASPII:POKE S4272HFNACP>, 
14:FOKE FNA<P?,168 

13868 FOR TT=i TO 5:NEXT TT:FOKE FNASP>, 
CH 

13972 GET T$S:IF T$="" THEN GOTO 13959 
13880 IF T$&=CHR$S(13> OR LEN«A$)=381 THEN 
GOSUB 14B0AAR:GCTO 13950 

139390 IF T&="t" THEN GOSUB 1590998:POKE FN 
B{FPL-55),62:G0T0 13948 

131898 IF T$="+" AND P<>O THEN 132408 
13118 IF T$="+-" ANDF=Q THEN P=SLEMIAS?I-1: 
5SOTO 13152 

13128 IF P>a AND T$&=CHR$(28: THEN A$=LEF 
TE(RE,P-1I+MIDEIAF,P+1):P=P-1:G0T013150 
13134 IF TS=CHR&(Z2A) THEN 13959 

13148 IF TSS>""ANDTSIS"W AND TES>"W TH 
EN AF=LEFTSIAF,PI+TEHMIDSIAB,Pri):P=P+i 
1315320 PRINT "Sa SUEHLILSENLI CHEN. 

F T£e="" AND P>38 THEN F=sFP-1 

ıSsı68 IF T&="W" AND P<LENIA#$)I-1 THEN P=P 
+1 

1317a 5070 17050 








Mit diesem Modul kann der Benutzer bis zu zwei Bildschirm-Textzeilen am Ende 
des Bildschirms eingeben und bearbeiten, und die sich in Vorbereitung befindli- 
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chen Zeilen bearbeiten, um sie mit einem nachfolgenden Modul in den Haupttext 
einzufügen. 


Kommentar 


Zeilen 13050-13070: Hier stoßen wir das erste Mal auf eine Routine für den blin- 
kenden Cursor. Auf der Grundlage der vom Benutzer definierten Funktion A 
überprüfen diese Zeilen den Bildschirmspeicher an der Stelle, die von der Variab- 
len P angegeben wird. Sie erhalten den Code des dort stehenden Zeichens. Da- 
nach wird ein inverses blaues Leerzeichen mit POKE in dieselbe Adresse ge- 
setzt, bleibt dort während der Dauer einer kurzen Schleife und wird dann durch 
das Originalzeichen ersetzt. Fand keine Eingabe über die Tastatur statt, wie 
durch die GET-Anweisung angegeben, so wird das Verfahren wiederholt. 


Zeile 13080: Durch Betätigung der RETURN-Taste wird die Zeile in den Haupttext 
eingefügt - ein weiteres Modul wird benötigt. Die Zeile wird auch automatisch ein- 
gefügt, wenn die Länge zwei Bildschirmzeilen überschreitet - dadurch werden die 
letzten Zeichen unter Umständen aus der Zeile gelöscht. 


Zeile 13090: Durch Betätigung des Symbols 'T’ kann der Benutzer in das nachfol- 
gende Modul gehen, das sich auf den Haupttext bezieht. 


Zeilen 13100-13110: Durch Betätigung des linken Pfeilsymbols oben links auf der 
Tastatur wird der Cursor entweder an den Anfang oder das Ende der Zeile be- 
wegt, je nachdem, an welcher Stelle er gerade steht. 


Zeilen 13120-13130: Vorausgesetzt, der Cursor steht 

nicht am Anfang der Zeile, so wird durch Betätigung der DELETE-Taste das Zei- 
chen vor dem Cursor gelöscht. Wird dies berücksichtigt, so bleiben bei Benut- 
zung von GET die Steuertasten, wie beispielsweise DELETE, wirkungslos, wenn 
nicht ein PRINT-Befehl benutzt wird. Wird also nicht gedruckt, so kann ihre Funk- 
tion neu definiert werden. 


Zeile 13140: Handelt es sich bei dem eingegebenen Zeichen nicht um ein Zeichen 
für die Cursorbewegung, so wird davon ausgegangen, daß es sich um ein auszu- 
druckendes Zeichen handelt. Es wird zu der Zeichenfolge an der Cursorposition 
hinzugefügt. Steht der Cursor in der Mitte der Zeichenfolge, so wird das Zeichen 
an dieser Stelle eingefügt - es ersetzt das Zeichen unter dem Cursor nicht. 


Zeilen 13150-13160: Die Zeichenfolge wird in ihrer geänderten Form neu ausge- 


druckt. Handelte es sich bei dem eingegebenen Zeichen um ein Cursorzeichen, 
so wird die Cursorposition dementsprechend geändert. 


27 


Testen von Modul 1.3.2 


Wird bei Zeile 14000 eine vorübergehende Zeilenschaltung eingefügt, so muß es 
nun möglich sein, Text am Ende des Bildschirms einzugeben und diesen Text zu 


bearbeiten. 


MODUL 1.3.3 


13200 REMBIOIOIIIOIOIIIIIIOIOIOIOIII 
149198 REM ZEILE EINFUEGEN 

142298 REMKHIIOTIHISIDIIIIO III 
14030 X=A 

143842 IF LEMIAEI<S4I THEN TTESCR)=SLEFTSCAES 
‚LEN!ASF)I-1I:AS="":GOTO 149709 

14859 FOR I=41 TO 1 STEP-1I1:IF MIDE(AS$,TI, 
1)<X>" " THEN NEXT I:I=41 

14068 TTECHPI=SLEFTFEAF,I- 19: AS=SMIDECAS, Ir 
2) 

14a70 K=Kk+l:IF ASS>"" AND A$<>" " THENG 
oTO 14948 

14888 FOR I=LL+= TO PL+% STEP-1:TEKTS$S(I) 
=TESTECI-S)I:NEXT I 

13894 FOR 1I=98 TO %-1:TEXTE(CPL+II=STTECI): 
NEXT 

141Bc A$=" ":P=B:PRINT "W"r:LL=SLL+%:PL=P 
L+X 

14119 SS=PL-7:IF LL-PL<8 THEN SS=LL-15 
141220 PRINT "WICHELLBLAU I gppeieleieinteieieieinieieien 
"saß; ""stif ss<O then s==H0 

143138 FOR 1=55 TO S5+15:PRINT "IGELBI">T 
ERTFCIIFEIF LEN<TERKTESCIII<4A THEN PRINT 
141948 IF I=SPL-1i THEN PRINT CHR&(62) 
141S2@ NEXT I:PRINT "LREVERS EINJIIGRUEN] 


n 





:RETURN 


Mit diesem Modul wird die laufende Zeile in den Haupttext eingegeben. 


Kommentar 


Zeile 14040: Umfaßt die eingefügte Zeile weniger als 41 Zeichen, so wird sie in die 


von dem Bearbeitungs-Cursor > angegebene Position gesetzt. 
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Zeilen 14050-14070: Ist die Zeile länger, so wird mit diesen Zeilen nach dem Ende 
des letzten Wortes gesucht, das voll auf die Zeile paßt. Sämtliche links davon ste- 
henden Zeichen werden zur ersten einzufügenden Zeile und werden in TT$ ge- 
speichert. A$ wird nun als Rost definiert. Das Verfahren wird dann wiederholt. Mit 
der Variablen X wird angegeben, wie viele Zeilen sich ergeben. 


Zeilen 14080-14090: Der Haupttext wird ab dem Bearbeitungs-Cursor verscho- 
ben, um Platz für die X neuen Zeilen zu schaffen. Danach werden die neuen Zeilen 
eingefügt. 


Zeilen 14100-14110: A$ wird auf ein einziges Leerzeichen festgelegt, die Position 
des blinkenden Cursors wird auf Null festgelegt und der Bearbeitungs-Cursor 
wird durch die neuen Zeilen nach unten bewegt. Der Beginn der Haupttext-Anzei- 
ge wird neu definiert, so daß der Bearbeitungs-Cursor etwa in der Mitte stehen 
bleibt. 


Testen von Modul 1.3.3 


Nun sollte es möglich sein, Textzeilen durch Betätigung der RETURN-Taste in 
den Haupttext einzufügen. 


MODUL 1.3.4 


15898 REMIS RR 
1=ga1a REM EINSETZEN DER ZEILE 

15028 REMIS 
15938 P2=PL-55 

15240 GET Ti$:IF Ti$<>"" THEM 15074 
1S85B8 POKE S4272+FNB(P23,3:POKE FNB(P2), 
62:FORIT I=1 TO ZB:NEXT 

15868 POKE FNB<P22,32:6G0T0 15040 

15874 PL=SPL+(Ti$="D")+1QOxcCTi$="U"):sIF FL 
x1 THEN PL=il 

1sesa PL=FL-<Ti$="M">-18%xCcT1$&="D"):IF PL 
>LL THEN PL=LL 

15898 IF T1$=CHR$S(13> THEN RETURN 

15ioa IF PL=:LL OR TiIS$<>CHR&S\20> THEN 15 
120 

1511E LL=SLL-1:FOR I=SPL TO LL:TEXT$CI?=TE 
KT$CI+I):NEKT:TERTEILL+HIIS"" 

1S120 IF PL<LL AND Ti$="C" THEN A&=TEXTS$ 
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“PL3+" "RETURN 

15188 IF Tis="P" THEN GOSUB 17008 
15148 IF Ti$#="S" THEN GOSUB 18988 
1515@ IF Tis="F" THEN GOSUB 16088 
15160 GOSUB 14119:G0T0 15838 


Mit diesem Modul kann der Hauptbearbeitungs-Zeiger in dem Haupttext hin- und 
herbewegt werden, so daß Zeilen an verschiedenen Stellen eingefügt werden 
können. Mit diesem Modul kann der Benutzer auch andere Moduln aufrufen, die 
den Text formatieren, den Text an einen Drucker ausgeben oder auf Band si- 
chern. 


Kommentar 


Zeilen 15040-15060: Routine des blinkenden Cursors für den Hauptbearbei- 
tungs-Cursor. 


Zeilen 15070-15080: Mit diesen beiden Zeilen wird der Hauptbearbeitungs-Cur- 
sor nach oben und unten bewegt. Verschiebungen um eine einzelne Zeile werden 
mit den normalen Cursortasten ausgeführt. Wird U oder D betätigt, so werden 
zehn Zeilen übersprungen. Hier wird auf die Benutzung logischer Bedingungen 
zur Ausführung dieser Verschiebungen verwiesen. Der Ausdruck (T1$’U') verfügt 
über einen Wert Null, wenn die Bedingung falsch ist und über einen Wert von mi- 
nus Eins, wenn sie wahr ist. Mit ihm kann also eine IF-Anweisung, wie beispiels- 
weise IF T1$’U’THEN usw., auf wirtschaftliche Weise ersetzt werden. 


Zeile 15090: Durch Betätigung der RETURN-Taste wird zu dem Texteingabe-Mo- 
dul zurückgegangen. 


Zeilen 15100-15110: Durch Betätigung der DELETE-Taste wird die Zeile unter 
dem Cursor gelöscht. 


Zeile 15120: Durch Betätigung von C wird die Zeile unter dem Cursor zur weiteren 
Bearbeitung an das Ende des Bildschirms kopiert. 

Testen von Modul 1.3.4 

Nun sollte es möglich sein, den Hauptbearbeitungs-Cursor zu bewegen, Zeilen 


zu löschen und sie wieder an das Ende des Bildschirms zu kopieren. 


30 


MODUL 1.3.5 


182988 REMRGGGRRARARARRAIIIOIIK 
ısala REM FORMATIEREN DER ZEILE 

1EB2E REMAGEN 
18E328 FOR I=i TO LL-2:IF TEXTS$\I>="" OR 
TE*MT$CI+1)="" THEN 16120 

ı1s5a4M 5SP=4A-LENCTEXTSCIII:FOR J=i TO LEN 
“TE#TSCI+1)) 

18954 IF MIDSCTEHTESCI+FLI,J,138>" " THEN 
NEXT J:I=J-1 

ı1B8a60 IF SPXJ OR J=SLEN<TEXTS$<I+I?) THEN 


18050 
1SO7B TEHTSCII=STERTEEIIF" "+LEFTSSTERTEC 
1+12,J-19 


18a524 TEXT$SCI+1)=SMIDESCTEKTESCIFII, Jt19:6G0 
TO 169480 

16834 IF LEN<{TEXTS$CI+1))=>5P THEN 16120 
181a8 TERTSETDI=STESTECIItF" "+HTERTSEIHID 
ıis11a FOR I=It! TO LL:TEXTE$SJII=STERTSCIHI 
J:NEKT J!LL=LL-1:PL=PL-1:6G0T0 16049 
16128 NESTI:RETURN 


Mit diesem Modul wird der Text formatiert, d.h. neu angeordnet, so daß leere 
Stellen am Ende der Zeilen wenn möglich mit Wörtern aus den nachfolgenden 
Zeilen aufgefüllt werden. 


Zeile 16030: Wird eine leere Zeile in den Haupttext eingegeben, so wird sie nicht 
formatiert. Mit leeren Zeilen können somit Absätze oder andere Zeilen voneinan- 
der getrennt werden, die der Benutzer nicht gemeinsam ausführen möchte. 


Zeilen 16040-16080: Der Leerraum am Ende der Zeile wird berechnet. Außerdem 
wird geschätzt, ob am Anfang der nächsten Zeile ein Wort steht, das in den leeren 
Platz paßt - wenn ja, wird es übertragen. 


Zeilen 16090-16110: Paßt die ganze nächste Zeile an das Ende der laufenden Zei- 
le, so wird sie angefügt und die Datei neu angeordnet, um den sich ergebenden 
leeren Platz zu verwerten. 


Testen von Modul 1.3.5 


Wird eine Reihe von Zeilen mit einzelnen Wörtern in den Haupttext eingefügt, so 
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sollte der Benutzer nun in der Lage sein, in den Hauptbearbeitungs-Modus zu ge- 
hen, F zu betätigen und zu sehen, wie die Wörter zu fortlaufenden Zeilen werden. 
Es können auch kurze Zeilen in die Mitte des Haupttextes eingefügt und dann 
neu formatiert werden. 


MODUL 1.3.6 


17920 REMEBESSS ki 
17218 REM DRUCKERAUSGABE 

17a20 REMIS 
17038 OPEN 1,4:8=1 

1re48 IF ==LL THEN I171aa 

179598 IF TEXST$iH)="" THEN PRINTRL,""IK=% 
+1:GCTO 17448 

17958 PRINT#1,TERTESCIH)F" "5 

17878 IF =+1=LL THEN 1712 

1ra88 PRINTH1,TEXTEIR+HII:EIF TEKTEIK+LD=" 
" THEM PRINTRL,"" 

176998 KA=-*+2:G0T0 17048 

i7188 PRINT#1,"":CLOSE1:RETURN 


Mit diesem einfachen Modul wird die Kommunikation mit dem Drucker (Einheit 4) 
eröffnet und der Haupttext ausgedruckt. Der Text wird im 80-Spalten-Format ge- 
druckt (d.h. zwei Bildschirmzeilen bilden eine gedruckte Zeile). Leerzeilen wer- 
den überall dort gedruckt, wo in dem Haupttext eine Leerzeile steht. Obwohl das 
Programm selbst problemlos mit Kleinbuchstaben fertig wird (gleichzeitige Betä- 
tigung der SHIFT- und COMMODORE-Tasten), erfordern die meisten Drucker 
einen besonderen Befehl, um tatsächlich Kleinbuchstaben auszugeben. Dieser 
Befehl wird hier nicht angegeben, da er von Drucker zu Drucker verschieden ist. 
In dem Drucker-Handbuch stehen die erforderlichen Informationen. 


MODUL 1.3.7 


18888 REMRAARISKIOKSIOK AR ka ok 

18B8iEd REM ABSPEICHERN DER DATEN 

180828 REMAKE Ra Re Ka ak ak aka ak ar kr ok 

1883520 PRINT "USILWEISSIKASSETTE EINLEGEN, 
DANN TREVERS EINJRETURNIREVERS AUSI]I--" 

18a44 INPUT "MOTOR HAELT AUTOMATISCH AN: 
":QS:POKE 192,7:POKE 1,393 

1859 PRINT "MOEGLICHE BEFEHLE:":PRINT " 
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[IGRUENJi>daten speichern" 

18855 PRINT"2) DATEN LADEN" 

180864 INPUT "SICHELLROTIBITTE WAEHLEN SIE 
:":Q:GN G GOTO 18989,18128 

1887&G RETURN 

18e8a POKE 1,7:FOR I=i TO ZU88:NEXT 
18898 OPEN 1,1,2,."TEXTED":PRINT#1,PL:PRI 
NT#1,LL 

18iaa FOR I=a TO LL:FFS=-TEXTECII+"C":PRI 
NT#1,FFS$S:NEXT I 

18118 CLOSEI1:RETURN 

1Si28 OPEN 1,1,8,"TEXTED":INPUT#1,PL,LL 
18i3a FOR I=-d TO LL:INPUT#1,TEXTECII:NER 
T:CLOSE1 

ı128149a FOR I=8 TO LL 

18159 IF TEXKT$S«I?I<S>"e" THEN TEXTSCII=SLEF 
T$<TE$RT$CII ,LEN<TEKTECITII-1D 

18168 IF TEXTS$(CI?="C" THEN TEXTEIII="" 
18178 NEXT I:RETURN 


Hier handelt es sich um das Standardmodul einer Datendatei. 
Zusammenfassung 


Die in diesem Programm benutzten Techniken zur Änderung von Angaben, wäh- 
rend diese auf dem Bildschirm angezeigt werden, verdienen Aufmerksamkeit, da 
sie bei weitem die (für den Benutzer) einfachste Möglichkeit zur Änderung von 
Zeichenfolgen darstellen. Sie können in eine Vielzahl von Programmen geschrie- 
ben werden, in denen eingegebene Zeichenfolgendaten geändert werden müs- 
sen - gegebenenfalls einschließlich der meisten Programme in diesem Hand- 
buch. 
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Texted: Zusammenfassung der Instruktionen 
Texteingabemodus: 


Textzeichen können bei der Position des blinkenden Cursors eingegeben wer- 
den. 


Mit den Pfeiltasten nach links und rechts wird der Cursor über die Zeichenfolge 
bewegt. 

"— ' bewegt den Cursor an den Anfang oder das Ende der Zeile. 'T ' ruft das 
Hauptbearbeitungs-Modul auf. 

Durch Betätigung der RETURN-Taste wird die aktuelle Zeichenfolge in den 
Haupttext gesetzt. 


Hauptbearbeitungs-Modus: 


RETURN Rückkehr zum vorhergehenden Modus 

U,D Mit den Cursortasten nach oben und unten wird der Hauptbearbeitungs- 
Cursor bewegt 

DELETE Löscht die Zeile unter dem Hauptbearbeitungs-Cursor 

c Kopiert die Zeile unter dem Hauptbearbeitungs-Cursor 

P Sendet den Text an den Drucker 

Ss Sichert den Text auf Band 

F Formatiert den Text. 
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KAPITEL 2 
PROGRAMMIERHILFEN 


Nachdem nun einige der grundlegenden Funktionen des Commodore 64 vorge- 
stellt wurden, sollen hier drei eng gepackte Programme vorgestellt werden. Sie 
stellen die wichtigsten Hilfsmittel dar, mit denen separate Programme gemischt, 
deren Zeilen neu numeriert und ganze Abschnitte problemlos gelöscht werden 
können. Diese Programme sind deshalb so eng gepackt, damit sie mit der Mer- 
ge-Routine zusammengefügt und dann an das Ende bestehender Programme 
angefügt werden können, ohne allzuviel Speicherplatz zu belegen. Nachdem zu- 
sätzliche Abschnitte in das Programm gemischt wurden und das Programm neu 
numeriert wurde, kann sich die Delete-Routine selbst und die beiden anderen 
Programme problemlos löschen. 


2.1 MERGE 


Dieses Programm ist zusammen mit den beiden anderen in diesem kurzen Kapi- 
tel vorgestellten Programmen ein Muß für den Benutzer, der die modulare Pro- 
grammierung ernst nimmt. Mit diesem kleinen Programm kann stundenlange Ar- 
beit gespart werden, indem nützliche Moduln auf Band gespeichert und einfach 
durch Betätigung einer Taste auf dem Bandrecorder zusammengefügt werden. 
Bevor ich dieses Programm vorstelle, möchte ich Steve Beats von Commodore 
UK danken, der mir die Grundidee vermittelt hat, auf der dieses Programm be- 
ruht. 

Das Programm enthält keine Moduln - bei acht Zeilen würde sich dies auch kaum 
lohnen. Und dennoch wird durch ein Programm wie dieses das Prinzip der modu- 
laren Programmierung verdeutlicht. 

Das Programm nimmt einfach ein anderes Programm oder einen Programmab- 
schnitt vom Band und gibt dieses bzw. diesen in den Commodore 64 ein, ohne 
daß die Gefahr besteht, die dort schon stehenden Daten zu verlieren - es sei 
denn, es werden identische Zeilennummern benutzt. In diesem Fall wird das erste 
Programm überschrieben. 


MODUL 2.1.1 


83338 PRINT"W"; 

683991 OPENI,1,4,"TEST" 

63392 POKE 184,96:POKE 186,1:POKE 152,1: 
PRINT "II" 
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53394 GET#H1,AS:PRINT A$7:IF ST THEN 63939 
3 

63595 IF A$<S>CHR&$(13) THEN 63394 

633936 PRINT"GOTO 639323": :POKE 631,13:PO 
KE 532,13:POKE 633,13 

8633937 POKE 133,3:END 

53399 CLOSEI 


Kommentar 


Zeile 63991: Die Datei, die dieses Programm liest, besteht aus einer Auflistung 
eines anderen Programms, das mit dem Befehl OPEN 1,1,2’TEST’:CMD1: LIST 
auf Band gespeichert wurde. Der CMD-Befehl bedeutet, daß jede Angabe, die 
normalerweise auf dem Bildschirm ausgegeben würde, in Wirklichkeit in die Datei 
mit der angegebenen Nummer gesendet wird - in diesem Fall eine auf dem Kas- 
settenrecorder geöffnete Datei. Das einzig Besondere an dieser Datei ist die Se- 
kundäradresse, d.h. 2. Mit ihr wird angegeben, daß es sich hier um eine Ausgabe- 
datei handelt, an deren Ende eine besondere Dateiendemarke ausgedruckt wird. 
Die Auflistung des Programms wird demzufolge nicht an den Bildschirm gesen- 
det, sondern an den Kassettenrecorder. Außerdem weist sie nicht dasselbe For- 
mat auf, unter dem ein Programm normalerweise gespeichert wird, sondern das 
ASCII-Format. Das Programm könnte auch Zeichen für Zeichen, wie auf dem 
Bildschirm dargestellt, aufgelistet werden. Stoppt der Kassettenrecorder, ohne 
daß er ausgeschaltet wird, so muß die Datei durch Eingabe von PRINT1: CLOSE1 
beendet werden. Dadurch wird gewährleistet, daß die letzten Zeichen des Pro- 
gramms ausgedruckt werden und die Datei richtig abgeschlossen wird. 


Zeilen 63994-63995: Während Zeile 63992 im Moment übersprungen wird, be- 
ginnt das Mischprogramm nun damit, die Zeichen des auf Band aufgelisteten 
Programms auszulesen, bis es auf einen RETURN-Code stößt, der das Ende 
einer Datei angibt. 


Zeile 63996: Diese etwas seltsame Zeile ist in Wirklichkeit der Schlüssel zu dem 
Programm. Nachdem eine Zeile vom Band genommen und auf dem Bildschirm 
ausgedruckt wurde, druckt das Programm nun direkt unter der Zeile den Befehl 
GOTO 63992 sowie das Steuerzeichen für Cursor in Ausgangsposition aus. Im 
Anschluß daran werden drei RETURN-Codes mit POKE in den Tastaturpuffer ge- 
setzt, den Speicherbereich, in dem Tasten gespeichert werden, die zwar betätigt, 
deren Funktion jedoch noch nicht ausgeführt wurde. Der dritte Code wird mit 
POKE in Adresse 198 gesetzt, in der festgehalten wird, wie viele Tastenfunktio- 
nen noch ausgeführt werden müssen. Nachdem dies geschehen ist, ist das Pro- 
gramm eigentlich beendet. Der Commodore 64 glaubt nun jedoch, daß die RE- 
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TURN-Taste drei Mal betätigt wurde und reagiert dementsprechend. Der Cursor 
wird also über die Zeile, die vom Band gelesen und auf dem Bildschirm ausge- 
druckt wurde, und über GOTO 63992 nach unten bewegt. Dadurch wird die Zeile 
in den Speicher eingegeben, genau so, als hätten Sie den Cursor über die Zeile 
gesetzt und die RETURN-Taste betätigt. Danach beginnt das Programm wieder 
bei 63992. 


Zeile 693992: Diese Zeile mit den geheimnisvollen POKE-Befehlen löst ein grund- 
legendes Problem - wann immer eine neue Zeile in ein Programm eingegeben 
wird, werden sämtliche bestehenden Zeilen mit CLOSE abgeschlossen. Wird die 
erste Zeile des neuen Programms eingegeben, so wird die Datei auf dem Kasset- 
tenrecorder abgeschlossen. Sämtliche Instruktionen, Daten mit GET aus dieser 
Datei zu holen, führen zu einem Fehler. Die Datei kann nicht mit einem Basic-Be- 
fehl wieder geöffnet werden, da die Dateianfangsmarke schon überschritten wur- 
de. Mit ihr wird dem Commodore 64 mitgeteilt, daß eine Datei auf dem Band ge- 
funden wurde. Mit den POKE-Befehlen wird nun ein wenig geschummelt und dem 
C64 mitgeteilt, daß Datei Nr. 1 mit einer Sekundäradresse Null auf dem Kasset- 
tenrecorder geöffnet ist. Nun kann die zweite Zeile aus der Datei geholt werden 
usw. ad infinitum. 


Zu irgendeinem Zeitpunkt stößt das Programm auf die Dateiendemarke. Mit ihr 
wird angegeben, daß die Auflistung beendet ist. Der zweite Teil von Zeile 63994 
(IF ST THEN 63999) entdeckt dies und springt zur letzten Zeile. Normalerweise 
stoppt das Programm mit der Fehlermeldung OUT OF DATA. Dies bedeutet, daß 
der Mischvorgang erfolgreich ausgeführt wurde. 

Im täglichen Gebrauch ist dieses Programm alles andere als schnell. Es wechselt 
zwischen einem leeren Bildschirm, auf den die Daten vom Band geladen werden, 
und blinkenden Zeilen am Anfang des Bildschirm. Für dieses Programm ist ein 
gutes Band erforderlich, da durch ein Band mit Ausfällen die ganze Sache erfolg- 
los werden könnte. Bei etwas Vorsicht ist dies jedoch ein Programm, auf das von 
Zeit zu Zeit zurückgegriffen wird - ein Versuch ist durchaus der Mühe wert. 


2.2 DELETE 


Bei der Entwicklung von Programmen, bei denen ähnliche Moduln für vorher ein- 
gegebene Programme benutzt werden, ist es besonders nützlich, wenn das Ori- 
ginalprogramm geladen und nur die Teile gelöscht werden können, die für die 
neue Anwendung nicht benötigt werden. Die folgende, 12 Zeilen umfassende 
Routine, ermöglicht genau dies. 

Die Routine beruht auf der äußerst einfachen und klaren Art und Weise, mit der 
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Programme im Speicher der Commodore Computer aufgelistet werden. Jede 
Programmzeile im Speicher beginnt mit zwei Verbindungsbytes, die die Start- 
adresse der nächsten Zeile im Speicher angeben. Auf diese beiden Bytes folgen 
zwei weitere Bytes, in denen die tatsächliche Zeilennummer angegeben wird. 
Diese Routine durchsucht nun die Zeilennummern zwischen einer vom Benutzer 
angegebenen Anfangsnummer und einer ebenfalls vom Benutzer angegebenen 
Endnummer. Ist die Adresse der letzten zu löschenden Zeile gefunden, so setzt 
das Programm einfach die nächste Zeilenadresse in die erste zu löschende Zeile, 
um auf die Zeile hinter der letzten zu löschenden Zeile zu zeigen. Dadurch erhält 
man eine einzelne Zeile, die sich vom Anfang der ersten zu löschenden Zeile bis 
zum Ende der letzten zu löschenden Zeile erstreckt. Nun kann gelöscht werden, 
indem einfach die erste Zeile gelöscht wird - alle anderen Zeilen werden mitge- 
löscht. 


MODUL 2.2.1 


83788 INPUT "ERSTE ZU LOESCHENDE ZEILE : 
":Di 

863714 INPUT "LETZTE ZU LOESCHENDE ZEILE: 
";D2 

63715 DEF FNDH(K)=PEEK (HI +2SI6RPEEK (A+1) 
83716 DEF FNHICK)I=K AND 255 

63717 DEF FNH2CHI=INTCHK2I6) 

E3728 LA=20943 

s373A LN=FNEH<LA+ZISIF LN<{DI THEN LA=FND 
H<LAI:GOTO 63738 

83744 DSTÄART=LA 

86375@ LN=FNDH<LA+2ZI:IF FNDH{LAI=B THEN 6 
376g 

863755 IF LN<{=D2 THEN LA=FNDH<LAI:GOTO 63 
758 

8378a POKE DSTART,FNHI<LAI:TPOKE DSTART+I 
‚FNH2<LAI 

E377A POKE DSTART+4,143:FOR I=5 TO 198:PO 
KE DSTART+I,33:NEKT 


Kommentar 


Zeile 63715: Diese Funktion, die in den verschiedensten Zusammenhängen äu- 
Berst nützlich sein kann, setzt eine aus zwei Bytes bestehende Zahl, mit der die 
meisten Computer allgemein arbeiten, in eine normale Dezimalzahl im Bereich 
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von 0 bis 65535 um. Die aus zwei Bytes bestehende Zahl verfügt in Wirklichkeit 
über eine Basis von 256, d.h. sie besteht aus maximal 255 Einheiten und einer 
zweiten Ziffer bis zu 255*256, so daß 99 aus neun Einheiten und 9 mal 10 besteht. 
Um jedoch etwas Verwirrung zu schaffen, werden die Ziffern rückwärts gespei- 
chert, d.h. das höherwertige Byte steht an zweiter Stelle. 


Zeilen 63716-63717: Diese beiden vom Benutzer definierten Funktionen führen 
genau die entgegengesetzte Aufgabe durch, d.h. setzen eine Dezimalzahl in eine 
aus zwei Bytes bestehende Zahl um. 


Zeile 63720: LA entspricht der Anfangsadresse der ersten Programmzeile. 


Zeile 63730: LN entspricht dem Wert des dritten und vierten Bytes der Zeile - der 
Zeilennummer. Ist dieser Wert kleiner als der Wert der ersten zu löschenden Zei- 
le, so benutzt LA die beiden Verbindungsbytes, um zu der Anfangsadresse der 
nächsten Zeile zu springen. Dieses Verfahren wird wiederholt, bis eine Zeilen- 
nummer gefunden wird, die gleich oder größer als die erste zu löschende Zeilen- 
nummer ist. 


Zeile 63740: Die Anfangsadresse der ersten zu löschenden Zeile wird in der Va- 
riablen DSTART gespeichert. 


Zeile 63750: Mit der FNDH Funktion überprüft die Variable LA den Speicher von 
Zeilenanfang zu Zeilenanfang. Mit jedem Sprung wird die Variable LN der dort ge- 
fundenen Zeilennummer gleichgesetzt. Findet FNDH eine Speicheradresse mit 
einer Null an einer Stelle, an der normalerweise ein Paar mit Verknüpfungsbytes 
stehen sollte, so ist das Ende des Programms erreicht. 


Zeile 63755: Jedesmal, wenn eine neue Zeilennummer angetroffen wird, wird sie 
mit der Nummer der letzten zu löschenden Zeile verglichen. Ist die letzte Zeile 
noch nicht erreicht, so wird der nächste Sprung vorgenommen. 


Zeile 63760: Hat das Programm diesem Punkt erreicht, so wurde die letzte zu lö- 
schende Zeile gefunden. In die beiden Verbindungsbytes bei DSTART wird die 
Adresse der Zeile hinter der letzten zu löschenden Zeile gesetzt. 


Zeile 63770: Das erste Zeichen des neuen einzelnen zu löschenden Zeilenblocks 
wird in eine REM-Anweisung umgesetzt, und hinter REM wird eine Folge von 
Ausrufezeichen gesetzt, um die zu löschende Zeile zu markieren. 

Die Routine hat nun ihre Funktion erfüllt. Jetzt braucht nur noch die Nummer der 
markierten Zeile eingegeben und die RETURN-Taste betätigt zu werden - der 
ganze Block, von einigen wenigen Zeilen bis zu einem vollständigen Programm, 
wird gelöscht. 


39 


In der Praxis wird diese Routine am besten mit der Merge-Routine im vorherge- 
henden Abschnitt dieses Kapitels benutzt (die Merge-Routine wird geladen und 
diese Routine wird entweder hinzugefügt oder eingemischt), da die Routine auf 
diese Weise zu bestehenden Programmen hinzugefügt werden kann, aus denen 
einige Zeilen benutzt und andere gelöscht werden sollen. Diese Routine ist in we- 
nigen Augenblicken ausgeführt und spart umfangreiche Tastaturarbeiten 


2.3 RENUMBER 


Eigentlich ist es der Wunsch eines jeden Benutzers, mit sauber numerierten Pro- 
grammen arbeiten zu können - der Unterschied zwischen einen professionell auf- 
gebauten Programm und einem von vornherein schlampig aussehenden Pro- 
gramm ist gewaltig. Mit dem relativ kurzen, hier vorgestellten Programm kann 
jedes Programm neu numeriert werden, obwohl es nicht gerade als schnell zu 
bezeichnen ist und dem Bereich der Programmzeilen eine einfache Einschrän- 
kung auferlegt. 

Das Programm numeriert jedes beliebige Programm neu, einschließlich der GO- 
TOs, GOSUBs, ONs...GOTOs und GOSUBs und der auf IF...THEN folgenden Zei- 
lennummern. Allerdings verschiebt es das Programm im Speicher nicht, so daß 
keine Ziffern zu einem GOTO (usw.) addiert oder subtrahiert werden können. 
Hierzu müßte das ganze Programm verschoben werden, das auf die geänderte 
Adresse folgt. Nicht daß dies unmöglich oder auch besonders schwierig wäre, 
um diese Funktionen jedoch einigermaßen praktisch zu gestalten, müßen sie im 
Maschinencode ausgeführt werden, der nicht in den Rahmen dieses Handbuchs 
fällt. 

Aufgrund dieser Einschränkung beginnen sämtliche Programme in diesem Hand- 
buch, die mit Hilfe der nachfolgend beschriebenen Routine neu numeriert wur- 
den, bei 11000. (Unregelmäßige Zeilennummern sind auf Änderungen zurückzu- 
führen, die erst im späteren Verlauf dieses Verfahrens vorgenommen wurden.) 
Auf diese Weise wird gewährleistet, daß sämtliche Zeilennummern über fünf Zif- 
fern verfügen. 

Die Art und Weise, in der das neu numerierte Programm strukturiert ist, kann 
durch Benutzung von Formatierzeilen innerhalb des neu zu numerierenden Pro- 
gramms gesteuert werden. Betrachtet man die Programme in diesem Handbuch 
näher, so wird man feststellen, daß die Moduln fast ausnahmslos mit einer REM- 
Anweisung beginnen, und daß das erste Zeichen hinter REM ein " Symbol ist. 
Das Programm zur Neunumerierung ist so beschaffen, daß es mit der Neunume- 
rierung bei 11000 beginnt und in Zehnerschritten erhöht, bis es zu einer Zeile 
11000 kommt. Diese Zeilennummer wird dann um 1000 erhöht. 

Dies führt nicht nur zu gut leserlichen Programmen, sondern bedeutet, daß die 
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Struktur des neu zu numerierenden Programms kontrolliert werden kann. Ange- 
nommen, Sie verfügen über ein Programm, aus dem drei oder vier Moduln be- 
nutzt werden sollen, die aktuellen Zeilennummern stimmen jedoch nicht mit der 
Struktur überein, die für das neue Programm gewünscht wird. Beispielsweise ist 
zwischen den einzelnen Moduln nicht ausreichend Platz vorhanden, um einen an- 
deren, auf Band stehenden Abschnitt einmischen zu können. Durch Einfügung 
von zwei REM-Anweisungen mit einem ersten Zeichen von ” und nachfolgende 
Neunumerierung wird automatisch eine Lücke von 2000 geschaffen, bei der die 


REM-Anweisungen stehen - nicht allzu schwierig 


MODUL 2.3.1 


835888 CLR:DIM 22 <598,1)3:LA=28493:FP=LA 
E53018 DEF FNDH{XD=PEEKIKI+2SSKPEEKIK+L) 
863813 DEF FNHI<CKDI=8 AND 255 

63816 DEF FNHZCKI=INTIR/2S6) 

ssaSc IF PP<>FNDH(LA? THEN 63668 

63953 LA=FNDH<LA>F::ENL=SFNDH<LAFZI:IF NL=6 
so88 THEN GOTO 63590 

63859 PP=PP+4 

63868 IF PEEK (PP)<>167 THEN 63978 

g3A62 5=8: IF PEEK{PP+1)=32 THEN 5=1 
83964 IF PEEK (PF+1+S?<48 OR PEEK <(PP+i+t 
53>57 THEN 63208 

63865 GOTO 63976 

63978 IF FPEEK <PP><>137 AND PEEK<PP>I<>IM 
1 THEN 63208 

863976 LET S=8:IF PEEK(PP+1)=32 THEN S=1 
63989 GG#="":FOR I=1+5 TO S5+S:IF PEEK(PP 
+13<48 OR FPEEKSPP+1)?757 THEN GOTO 63148 
63085 LET GG$=GG$+CHR$<PEEK \PP+II):NEXT 
83994 GG=YALIGGSI:L1=2849:L2=FNDH (285193: 
LL=11848 

638933 IF L2=63989 THEN PRINT "SPRUNG ZU 
NICHT EXISTENTER ZEILE IN ZEILE"?NL:STOP 
63895 IF L2=6G THEN 63198 

63097 Li=FNDH<LI1I:L2=FNDHILI+2ZI:LL=LL+1Q 
63838 IF PEEK(L1+4)=143 AND PEEK(L1+5)=3 
= THEN LL=18008%#INT<<LL+19009)71009) 

635995 GOTO 63493 

63188 LET ZZ<ZI,O)=LL:LET ZZ<ZI,1>=PP+S: 
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ziI=Z1#1 
6311A IF PEEK(PP+S+6)=44 THEN PP=PP+6+5: 
GOTO 63976 

63135 G0TO 63208 

63148 PRINT "UNGUELTIGER BEFEHL IN ZEILE 
"ZNL:STOP 

6328@ FP=PP+1:60T0 63858 

63508 LA=2049:LL=19008 

63593 IF PEEK(LA+4)=143 AND PEEK(LA+5)=3 
5 THEN LL=1090% INT<(LL+1000)/1099) 

63585 IF FNDH(LA+2)=63000 THEN 63688 
8351 POKE LA+2,FNHI<LLI:POKE LA+3,FNHE« 
LL>) 

63528 LET LL=LL+1@:LET LA=FNDOH<LA):GOTO 
63593 

6369@ IF ZI=8 THEN STOP 

636085 FOR I=8 TO ZI-1 

83610 FOR J=1 TO 5:POKE ZZ<1,1)+J,ASCKMI 
DECSTRECZZEI,OY),J+LIIENEXT J 

e382@ NEXT I 

636858 STOP 


Kommentar 


Zeile 63000: Im Feld ZZ werden die Adressen der neu zu numerierenden GOTO- 
Anweisungen usw., sowie die neu zuzuweisende Nummer aufgezeichnet. 


Zeilen 63010-63016: Dieselben Funktionen wie in der Routine für das Löschen 
von Blöcken. Nachdem die beiden gemischt wurden, muß diese Gruppe gelöscht 
werden. 


Zeilen 63050-63509: PP ist ein Zeiger, der den Speicher nach GOTO usw. ab- 
sucht. Er beginnt am Anfang des Programmbereichs bei 2049. Jedesmal, wenn 
der Anfang einer neuen Zeile erreicht wird, wird die Zeilenadreß-Variable (LA) er- 
höht. Die Zeilennummer der aktuellen Zeile wird in LN gespeichert. Das Pro- 
gramm stoppt bei Zeile 63000 - dem Beginn dieser Routine. Nun springt PP zu 
dem ersten Zeichen der Zeile. 


Zeilen 63060-63065: Mit diesen Zeilen wird bei Antreffen einer THEN-Anweisung 
im Speicher geprüft, ob auf THEN entweder direkt oder im Anschluß an ein Leer- 
zeichen eine Zahl folgt. Mit der Variablen S wird einfach aufgezeichnet, ob ein 
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Leerzeichen vorhanden ist. Folgt auf THEN keine Zahl, so geht PP weiter. 


Zeilen 63070-63085: Wird der Code für GOSUB oder GOTO gefunden, so prüft 
das Programm, ob ein Leerzeichen folgt oder nicht. GG$ wird aus den Ziffern der 
Zeilenbestimmung erstellt. Weniger als fünf Ziffern führen zu einer Fehlermel- 
dung in Zeile 63140. 


Zeilen 63090-63099: GG wird gleich der GOTO- oder GOSUB-Bestimmung ge- 
setzt. Diese Routine durchsucht dann die Zeilennummern in dem Programm ab 
dem Anfang und sucht nach der Bestimmung. Für jede überprüfte Zeile wird die 
Variable LL um 10 erhöht, wobei bei 11000 begonnen wird. Auf diese Weise wird 
festgehalten, wie die Zeilennummer nach der Neunumerierung des Programms 
lautet - die Zeile kann hier nicht neu numeriert werden, da unter Umständen eine 
andere GOTO-Anweisung auf diese Zeile zeigt. Wird REM angetroffen, so wird LL 
auf den nächsthöheren 1000-er Wert erhöht. 


Zeile 63100: An dieser Stelle wurde die richtige Zeilennummer gefunden, so daß 
die Adresse der GOTO-Anweisung im Feld ZZ zusammen mit ihrer künftigen Zei- 
lennummer (LL) gespeichert wird. 


Zeile 63110: Handelt es sich bei dem sechsten Zeichen hinter der GOTO- oder 
GOSUB-Anweisung um ein Komma, so wird davon ausgegangen, daß es sich hier 
um eine ON...GOTO-GOSUB-Anweisung handelt. PP wird weiter bewegt und die 
neue Zeilenbestimmung wird von einem früheren Teil der Routine aufgenommen. 


Zeile 63200: Das Verfahren wird fortgesetzt, während PP weiter durch den Spei- 
cher geht, bis Zeile 63000 angetroffen wird. 


Zeilen 63500-63520: Diese Zeilen beginnen am Anfang des Programms und 
numerieren nur die Zeilen neu (wobei REM nicht vergessen werden darf). 


Zeilen 63600-638650: Nun brauchen nur noch die Adressen sämtlicher GOTO-GO- 
SUB-Bestimmungen aus ZZ herausgenommen und die neuen Bestimmungen mit 
POKE in die fünf auf jede Adresse folgenden Bytes gesetzt werden. Sie wurden 
schon berechnet. 


Obwohl dieses Programm, was Geschwindigkeit oder Flexibilität betrifft, nicht mit 
einem guten Dienstprogramm im Maschinencode verglichen werden kann, führt 
es doch seine Funktion aus, wie sich aus den Programmen in diesem Handbuch 
ergibt. Verfügen Sie nicht über eine Neunumerierungs-Routine im Maschinenco- 
de, so bin ich sicher, daß Sie auf diese Routine häufiger zurückzugreifen werden, 
als auf nahezu alle anderen. 
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Wird diese Routine mit den beiden vorhergehenden Dienstprogrammen ge- 
mischt, wobei die drei jeweils durch STOP-Anweisungen voneinander getrennt 
werden, so verfügen Sie über ein leistungsfähges Hilfsmittel, das die Program- 
mierung einfacher und die Programme leserlicher gestaltet. 


KAPITEL 3 
DER FARBIGE C64 


Der Commodore 64 verfügt über ein faszinierendes Spektrum an Grafik-Möglich- 
keiten. Die Formen und Farben, die auf dem Bildschirm angezeigt werden kön- 
nen, decken nahezu jeden nur erdenklichen Bedarf ab und reichen sicherlich aus, 
einen Hobbykünstler für den Rest seines Lebens zu beschäftigen. In diesem Ka- 
pitel werden vier Grafik-Programme vorgestellt, mit denen Grafik-Zeichenvorräte, 
vom Benutzer definierte Zeichen, Sprites und Bit-Raster-Grafiken entdeckt wer- 
den können. Die hier vorgestellten vier Programme stellen sicherlich nur einen 
kleinen Teil dessen dar, was der C64 vollbringen kann. Deshalb sind die Program- 
me als Hilfsmittel gedacht, die es Ihnen ermöglichen sollen, all die farbigen Funk- 
tionen in Ihre eigenen Programme einzufügen, die diese dann aus der Masse der 
anderen Programme hervorheben. 


3.1 ARTIST 


Nur wenige Homecomputer verfügen über einen so leistungsfähigen Grafik-Zei- 
chenvorrat wie die Commodore-Systeme. Mit den über die Tastatur einzugeben- 
den Zeichenkombinationen gibt es eigentlich nichts, was nicht in irgendeine gra- 
fische Form gebracht werden könnte. Dies ist besonders nützlich, wenn die 
Ausgabe der meisten Programme belebt werden soll, insbesondere in Verbin- 
dung mit den ausgezeichneten Farbmöglichkeiten des C64. 

Die einzige Einschränkung liegt im kreativen Bereich bei der Entwicklung der 
Grafik-Anzeigen. Dies kann natürlich ausschließlich mit Druck-Anweisungen in 
einem Programm erfolgen. Die Druck-Anweisungen jedoch mit einer Vielzahl von 
Farb-Befehlen, Befehlen für die inverse Anzeige usw. in genau die richtige Form 
zu bringen, wobei jede Zeile separat definiert werden muß, kann sehr zeitaufwen- 
dig sein. Hier wird einfach eine Möglichkeit benötigt, den Bildschirm wie eine 
Staffelei zu benutzen, wobei mit Grafikzeichen in den verschiedensten Farben 
gezeichnet, radiert und beliebig geändert werden kann. Schließlich muß eine 
Möglichkeit bestehen, den Entwurf für die Nachwelt oder zumindest für andere 
Programme, die den erstellten Entwurf benutzten könnten, auf Band zu sichern. 
All dies wird mit dem jetzt vorgestellten Programm erreicht. 

Im Laufe dieses Verfahrens werden auch viele Informationen über die Handha- 
bung des Bildschirm- und Farbspeichers, zusammen mit nützlichen Speicher- 
adressen für die Kontrolle von Eigenschaften, wie beispielsweise der Druckfarbe, 
vermittelt. 
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Artist: Variablentabelle 


Ge 
co(3) 
eT 
CU 
ci$ 
D2$ 
D3$,D4$ 
MODE 
PC 

PP 

PT 


MODUL 3.1.1 


Aktuelle Cursorposition 

Koordinaten von zwei Ecken des zu sichernden Entwurfs 
Vorübergehender Speicherplatz der Cursorposition 

Aktuelle Cursor-Farbe 

Werte der zu sichernden Zeichen in dem Entwurf 

Farbwerte der zu sichernden Zeichen 

Temporäre Kopien von D1$ und D2$ 

Definiert, welche der vielen Farb-Eigenschaften adressiert wird 
Farbe des Zeichens in Position PP 

Ursprünglicher Inhalt der aktuellen Cursorposition 
Speicheradresse der beiden in Feld CO festgehaltenen Ecken 


1108989 REMIS RK 
11918 REM VARIABLEN 

119828 REMIS Ak 
11838 R$=CHR&(13) 


Eigentlich kann man dies kaum als Modul bezeichnen. Mit ihm kann jedoch ein 
entsprechender Bereich für alle erforderlichen Variablen reserviert werden, so- 
fern Sie sich entscheiden, das Programm weiter zu entwickeln. Bei der tatsäch- 
lich definierten Zeichenfolge handelt es sich um ein Standard-Trennzeichen für 


eine Datendatei. 


MODUL 3.1.2 


129002 REMERRBKOT ak 
12919 REM CURSORBEWE GUNG DARSTELLUNG 
128226 REM 
12239 PRINT”I"? 

12892 POKE 659,255:GET A$ 

12859 CC=PEEK (211>+PEEK (219) #256 +PEEK (20 
93:PP=PEEK<(CCI:PC=PEEK <CC+54272> 

12868 POKE CC,42:POKE CC+54272,CU:FOR I= 
1TO15:NEXT:POKE CC,PP:POKE CC+54272,PC 
12878 IF A$="" THEN 12840 

12888 IF CC>1983 AND A$="M" THEN 12948 
12898 IF CC=2923 AND A#="W" THEN 120948 
ı121ea IF CC=1924 AND As="I' THEN 12040 


46 


12118 IF CC<1064 AND A$&="Q" THEN 12048 
12126 IF A$="D" OR A$="M" OR Are" OR A 
$="il" THEN PRINT A$5:G0T0 12948 

12130 IF A&=CHR$(133) THEN MODE=1 

12194a IF A$=CHRS(137) THEN MODE=2 

12158 IF AS=CHR$(134) THEN MODE=3 

12155 IF AS=CHR$(138> THEN 12839 

12168 IF <MODE=1 OR MODE=2 OR MODE=3) AN 
D A&="+" THEN MODE=MODE+.5:G0OTO 12948 
12178 IF A$S=CHR$S(135) THEN INY=(INV=8) 
12188 IF A$=CHR$(1335 THEN MODE=6 

12138 IF AS=CHR&$(136) THEN MODE=7 

12208 IF A&S=CHR$(140)> THEN MODE=8 

122i@ IF MODE=1 AND A&>="1" AND A$i="8" 
THEN POKE CC+34272 ,YAL«ASI-1:G0T0 12948 
12228 IFMODE=1.5ANDA$S>="1" AND As<="8" T 
HEN POKE CC+54272,3+VALKASI-1:GOTO 120848 


12238 IF MODE=2 AND A$>="1" AND As<="8" 
THEN POKE 53281 ,VAL<A$SI-1:G0T0 12948 
ı224a IF MODE=2.5 AND A$>="1" AND As<="8 
" THEN FPOKE 53281 ,8+VAL<(A$)-1:60T0 12948 


1225a IF MODE=3 AND A$>="1" AND As<i="8" 

THEN POKE 646 ,VAL(A#)-1:G0T0 12940 

ı1226A IF MODE=3.5 AND A$>="1" AND A$<="8 
" THEN POKE 646,8+VAL<(A$)-1:G0T0 12048 
12279 IF MODE<?E OR (A$<C>"R" AND ASC>"D" 
AND AS<>"S") THEN 12320 

12288 IF A&="R" THEN GÜSUB 13049 

12298 IF A&="D" THEN 50OSUB 13968 

12308 IF A$="S" THEN GOSUB 14098 

12318 CC=CT:GOTO 12844 

12324 IF MOGE=&8 AND As>="1" AND As<i="8" 
THEN CU=YAL<AS>-1:G0OTO 12040 

123398 IF INVY=-1 THEN PRINT "I[REVERS EIN] 


na 
’ 


12348 PRINT A$7 "TREVERS AUSI"; 
12358 GOTO 12040 


Dieses Modul reicht schon aus, um den Bildschirm in eine Staffelei zu verwan- 
deln. Mit ihm können Sie einen blinkenden Cursor auf dem Bildschirm hin- und 
herbewegen, Zeichen ausdrucken, ändern und löschen, die Vordergrund- und 
Hintergrundfarbe für Zeichen ändern ... 


Kommentar 


Zeilen 12040-12070: Diese Routine erzeugt einen blinkenden Cursor, der vom 
Benutzer gesteuert wird. 


Zeile 12040: Mit diesem POKE-Befehl wird die Wiederholfunktion festgelegt, so 
daß eine Taste, die gedrückt gehalten wird, ständig dasselbe Zeichen ausdruckt. 
Mit dem zweiten Teil der Zeile wird ein einzelnes über die Tastatur eingegebenes 
Zeichen empfangen. 


Zeile 12050: CC ist gleich der Speicheradresse der aktuellen Druckposition. 
PEEK(211) gibt die Position entlang der Zeile (0-39) an, während 
PEEK(210)*256 + PEEK(209) die Speicheradresse des Zeilenanfangs angibt. PP 
wird gleich dem Bildschirmcode des Zeichens gesetzt, das gerade die Position 
belegt, an der der Cursor aufblinkt. PC entspricht der Farbe des Zeichens in die- 
ser Position. 


Zeile 12060: Ein Sternchen, Bildschirmcode 42, wird nun mit POKE in die Position 
gesetzt, an der der Cursor blinken soll. Die aktuelle Cursorfarbe CU wird mit 
POKE an der entsprechenden Stelle in den Farbspeicher gesetzt. Dank einer kur- 
zen Zeitschleife bleibt das Sternchen einen Augenblick lang auf dem Bildschirm 
stehen. Danach werden das Originalzeichen (Code PP) und die Originalfarbe 
(PC) wieder mit POKE in den Speicher gesetzt. 


Zeile 12070: Wurde keine Taste betätigt, so wird der Zyklus wiederholt. 


Zeilen 12080-12110: Mit diesen Zeilen wird geprüft, ob der Cursor bei Betätigung 
der Cursortasten nicht vom Bildschirm läuft. 


Zeile 12120: Wird ein Cursor-Steuerzeichen eingegeben und besteht es die Tests 
ın den vier oben angegebenen Zeilen, so wird es sofort ausgedruckt. Das Pro- 
gramm kehrt dann zu der Routine für den blinkenden Cursor zurück. 


Zeilen 12130-12200: Werden die Funktionstasten auf der rechten Seite der Tasta- 
tur als Eingabetasten benutzt, so kann der Benutzer mit diesen Zeilen die ver- 
schiedenen Betriebsarten angeben, mit denen verschiedene Farbeigenschaften 
festgelegt werden können. 
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Zeile 12130: Wird die Taste fl betätigt, so wird das Programm in den MODUS 1 
versetzt. Wird in diesem Modus eine der Tasten 1 bis 8 betätigt, so wird die Farbe 
jedes Zeichens neu definiert, über dem der Cursor gerade steht. Als Farbe wird 
die Farbe benutzt, die auf der Vorderseite der Taste angegeben wird. 


Zeile 12140: Bei Betätigung von f2 kann mit demselben Verfahren die Hinter- 
grundfarbe des Bildschirms neu definiert werden. 


Zeile 12150: Durch Betätigung von f3 kann die Druckfarbe mit demselben Verfah- 
ren zurückgesetzt werden. 


Zeile 12160: Da in Wirklichkeit 16 Farben zur Verfügung stehen, wird durch Betä- 
tigung der Pfeil-nach-links-Taste, oben links auf der Tastatur, im MODUS 1, 2 
oder 3 der Modus neu definiert. So wird durch Betätigung der Tasten 1 bis 8 die 
Farbe gewählt, die normalerweise durch Betätigung dieser Taste zusammen mit 
der Commodore-Taste erreicht wird. Die neu definierten Eigenschaften entspre- 
chen den Eigenschaften, auf die im Hauptmodus Bezug genommen wird. 


Zeile 12170: Bei Betätigung von f5 wird die inverse Anzeige gesetzt oder zurück- 
gesetzt - so daß Zeichen invers ausgedruckt werden können. 


Zeile 12180: Bei Betätigung von f6 kann der erstellte Entwurf gesichert werden. 
Das richtige Verfahren wird später im einzelnen erläutert. 


Zeile 12190: Durch Betätigung von f? wird nur die Neudefinition in einen nicht 
wirksamen Modus vorgenommen. Dadurch kann der Benutzer die Zahlen 1 bis 8 
auf dem Bildschirm ausdrucken, anstatt eine Farbeigenschaft neu zu definieren. 


Zeile 12200: Durch Betätigung von f8 kann der Benutzer die Cursorfarbe in eine 
der ersten acht Farben ändern. Dies ist besonders nützlich, wenn die Bildschirm- 
farbe so neu definiert wurde, daß der Cursor nicht mehr deutlich sichtbar ist. 


Zeilen 12210-12220: Bei dem MODUS 1 oder 1,5 wird die Farbeingabe für das ak- 
tuelle Quadrat mit POKE in den Farbspeicher gesetzt. 


Zeilen 12230-12240: Bei dem MODUS 2 oder 2,5 wird der neue Farbcode mit 
POKE in Adresse 53281 gesetzt. Mit dieser Adresse wird die Hintergrundfarbe 
des Bildschirms festgelegt. 


Zeilen 12250-12260: Bei dem MODUS 3 oder 3,5 wird der neue Farbcode mit 


POKE in Adresse 646 gesetzt. Mit dieser Adresse wird die aktuelle Druckfarbe 
festgelegt. 
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Zeilen 12270-12310: Im MODUS 6 bezieht sich diese Routine auf die Sicherung 
kleiner oder großer Entwürfe. Wird R eingegeben, so kann die Definition eines 
Bildschirmrechtecks gesichert werden. Durch D wird ein Entwurf in kleinem Maß- 
stab gesichert. Durch S wird der ganze Bildschirm auf Magnetband gesichert. 


Zeile 12310: Mit CT wird die aktuelle Cursorposition gesichert, die dann während 
der SAVE-Routine geändert werden kann. 


Zeile 12320: Im MODUS 8 wird der neue Farbcode in die Variable CU gespeichert. 


Zeile 12330: Ist die inverse Anzeige gesetzt (INV-1), so wird das Steuerzeichen 
RVS ON ausgedruckt. Auf diese Weise wird das nächste auszudruckende Zei- 
chen invers gedruckt. 


Zeile 12340: Erreicht das Programm diesen Punkt, so wird jedes eingegebene 
Zeichen auf dem Bildschirm ausgedruckt und das Steuerzeichen für inverse An- 
zeige aus (RVS OFF) wird im Anschluß an dieses Zeichen ausgedruckt. 


Testen von Modul 3.1.2 


Nachdem dieses Modul eingegeben wurde, sollten Sie in der Lage sein, beliebige 
Entwürfe auf dem Bildschirm mit dem ganzen Zeichenvorrat zu erstellen, der 
über die Tastatur zur Verfügung steht. Sämtliche Befehle zur Neudefinition von 
Farben können benutzt werden. Allerdings können Sie den erstellten Entwurf 
noch nicht sichern. 


MODUL 3.1.3 


13800 REMOTE k 

13819 REM BILD SPEICHERN 

13822 REMIS RR 

13838 GET T$:IF T#="" THEN 13930 

ı13@4a IF TE<S>"1" AND T&<>"2"THEN RETURN 

1359 CO<WYAL<TEIK2-2I=PEEKC211IECOLVALET 
$)*#2-1)=INTCCCC-19024)744): RETURN 

13868 REMIS OK 

13978 CT=CC:POKE 646,CU 

13888 IF CO<H)<=COS2> AND COC1)<£=C0<(3) T 
HEN 13110 

139890 PRINT "SRECHTECK FALSCH DEFINIERT. 
"::FOR I=1 TO 1088:NEXT 

13188 PRINT "3 
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"z:RETURN 
13118 IF <CO<2I-CO<B)I-1I#rCCOD<3I-COC1)-1) 
<2S51 THEN 13140. 
ıis12@ PRINT "®BILD ZU GROSS.">7:FOR I=1T 
ü 1899:NEXT 
13138 PRINT "3 


De 
E4 


13148 FOR I=1 TO 2:PT=19024+49xC0<C1Ix2-19+ 
CO<I#2-2):TC£ II=SPT:TCKEIHr2I=PEEK PT) 
13158 POKE PT,42:PCKE PT+534272,CU:NEXT 
13168 INPUT "SSIND DIESE PUNKTE RICHTIG 
<I/MDE"QE: IF Q&="1" THEN 13178 
ı1S162 PRINT "3 

":FOR I=1 TO 2:PCOKE TECII,TCCI+2I:NE 
”T 
13164 RETURN 
13178 Dis="":D2O#="":FOR I=COot1d+1 TO COC 
3>-1:FOR J=COco>+i TO COX2I>-1 
13158 DIE=SDIS+CHRECPEEKSI1O24+48xK1I+ II): PO 
KE 1824+40%x1+J],42 
131998 DES=-DESHCHRS$(PEEK (STEIE +49 K IH III: P 
OKE 55296 +48 %I+T,Q@:NEXT J,I:PRINT "4" 
13208 D3I$=-DI1$:04$=D2#:FOR I=COt1)+t1 TOC 
OS3)-1:FÜOR J=COcCa)+1 TO COi2)-1 
1s21@ POKE 1824+49x1+J ,ASCCLEFT$SCDISS, 19) 
:DS&=RIGHT$ID38$ ,LENCD3SF)I-1) 
1s2208 POKE 55296+44%1+J,ASCILEFT$SIDIE, 1) 
3:D4S=RIGHT$EID4S ,LEN!DIFI-II:NERT J,I 
13230 PRINT "SEIES WIRD ABGESPEICHERT. ": 
FÜR I=1 TO 10899:NEXT 
13248 INPUT "SKASSETTE EINLEGEN, DANN IR 
EVERS EINJRETURNLREVERS AUSI:"70$ 
13254 PRINT "3 


na 
Me 


13268 OPEN 1,1,1,"ARTIST":FOR I=@a TO 3:P 
RINT#1,COX II:NEXT:PRINT#$I1,LENGDI1S?> 

ı1327a FOR I=1 TO LEN<EIS$>I:PRINT#HI,ASCIMI 
D$SiDIS$,1,1>23 RS ASCCMIDS(D2S$, 1,19 2:NEXT 
13288 CLOSEI:RETURN 
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Mit diesem Modul soll ein kleiner Entwurf auf dem Bildschirm definiert und dann 
gesichert werden. 


Kommentar 


Zeilen 13030-13050: Wurde im vorhergehenden Modul MODUS 6 gesetzt und da- 
nach R betätigt, so nehmen diese drei Zeilen die Eingabe eines weiteren Zei- 
chens auf, bei dem es sich um eine 1 oder 2 handeln muß. Wird 1 betätigt, so wird 
das aktuelle Cursor-Quadrat als obere linke Ecke des zu sichernden Rechtecks 
definiert. 2 definiert die untere rechte Ecke. Diese beiden Quadrate liegen in 
Wirklichkeit außerhalb des zu sichernden Entwurfes und definieren einen äußeren 
Rahmen um den zu sichernden Bereich. Die Speicherpositionen der beiden Ent- 
wurfsecken werden in Feld CO gespeichert. Dieses Feld mußte nicht dimensio- 
niert werden, da es über weniger als zehn Elemente verfügt - durch einfache Ein- 
gabe eines Wertes in dieses Feld wird es ausreichend erstellt. CO(0) oder CO(2) 
wird auf die Position des Cursors in der Zeile gesetzt, wie durch PEEK(211) ange- 
geben. CO(1) oder CO(3) wird auf die aktuelle Nummer der Bildschirmzeile + 
(aktuelle Speicherposition-Bildschirmbeginn)/40 gesetzt. 


Zeilen 13060-13280: Mit diesen Zeilen kann das vorher definierte Rechteck gesi- 
chert werden. 


Zeile 13070: Die Druckfarbe wird vorübergehend auf die Farbe des Cursors fest- 
gelegt. 


Zeile 13080: Hier wird geprüft, ob ein gültiges Rechteck definiert wurde, d.h. ein 
Rechteck, bei dem Länge und Breite angegeben wird. Ist dies nicht der Fall, so 
wird eine Fehlermeldung ausgedruckt. 


Zeile 13110: Die Daten für den Entwurf werden vorübergehend in einer Zeichen- 
folge gespeichert, so daß geprüft wird, ob die Zeichenfolge nicht zu lang ist. Eine 
Fehlermeldung wird ausgedruckt, wenn die Zeichenfolge voraussichtlich zu lang 
ist. 


Zeilen 13140-13160: Mit den in Feld CO stehenden Koordinaten werden die Ek- 
ken des Rechtecks mit POKE erneut auf den Bildschirm gesetzt. Der Benutzer 
wird gebeten, die Richtigkeit des zu speichernden Rechteckes zu bestätigen. 


Zeile 13170: Die beiden benutzten Zeichenfolgen werden initialisiert. Die beiden 


Schleifen werden so kombiniert, daß J Zeichen (die Breite des Entwurfs) vom 
Bildschirm für | Zeilen (die Höhe des Entwurfs) gelesen werden. 
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Zeilen 13180-13190: Der Bildschirm- und der Farbspeicher werden auf der 
Grundlage der von den Schleifen angegebenen Adressen mit PEEK überprüft. 
Die Werte werden in Form von Zeichen mit diesem Codewert zu der im Speicher 
stehenden Zeichenfolge addiert. Die beiden auf diese Weise gebildeten Zeichen- 
folgen würden beim Ausdrucken keinen Sinn ergeben. Sie bieten einfach die 
Möglichkeit, eine Reihe von Werten vorübergehend zu speichern, ohne kompli- 
zierte Zeiger zu einer Position in einem Feld setzen zu müssen. Nachdem dies 
geschehen ist, wird ein Sternchen mit POKE in die Bildschirmadresse gesetzt. 
Die Farbeigenschaften werden auf schwarz gesetzt, so daß die Verarbeitung des 
Entwurfs verfolgt werden kann. 


Zeile 13200: Eine Kopie von D1$ und D2$ wird genommen. Danach werden zwei 
weitere Schleifen dazu benutzt, die gespeicherten Zeichen zusammen mit ihren 
Farbeigenschaften wieder mit POKE auf den Bildschirm zu setzen. Jedesmal, 
wenn ein Zeichen wieder mit POKE auf den Bildschirm gesetzt wird, wird das je- 
weils linksbündigste Zeichen aus den beiden Zeichenfolgen abgeschnitten, so 
daß stets das erste Zeichen der Zeichenfolge benutzt wird. Aufgrund dieses Ab- 
schneidens muß eine temporäre Kopie der beiden Originalzeichenfolgen erstellt 
werden. Diese beiden Schleifen sollen dem Benutzer einfach beweisen, daß der 
Entwurf richtig gespeichert wird. 


Zeilen 13240-13280: Der Entwurf wird auf Band gespeichert. 


Zeile 13260: Die Werte in Feld CO werden zusammen mit der Länge von D1$ ge- 
speichert (hier handelt es sich gleichzeitig auch um die Länge von D2$). 


Zeile 13270: Eine Schleife, die der Länge von D1$ entspricht, speichert die Werte 
der Zeichen beider Zeichenfolgen (d.h. der aus dem Bildschirm- und Farbspei- 
cher stammenden Werte). Bedauerlicherweise können die beiden Zeichenfolgen 
selbst nicht auf Band gespeichert werden, da sie unter Umständen nicht aus- 
druckbare Zeichen enthalten, die der C64 nicht in Form einer Zeichenfolge spei- 
chern kann. 


Testen von Modul 3.1.3 


Nun sollte ein Entwurf auf Band gespeichert werden. Fällt die erneute Anzeige 
des Entwurfes zufriedenstellend aus, so wurde die Speicherung höchstwahr- 
scheinlich richtig ausgeführt. Dies kann jedoch nur voll getestet werden, wenn 
später mindestens das entsprechende Modul des Programms 'Words’ eingege- 
ben wird, mit dem auf diese Weise erstellte Entwürfe benutzt werden. 
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MODUL 3.1.4 


122aA0 REMIS KK 
149iE REM BILD ABSPEICHERN 
14220 REMIX 
14934 PRINT "SKASSETTE EINLEGEN, DANN IR 
EVERS EINIRETURNLREVERS AUS1:":Q$ 
14084@ PRINT "3 

"2:0OPEN 1,1,1,"BILD" 
140852 FORI=OTIIII:PRINT#1,PEEK(I1A24+HI):P 
RINT#1 ,PEEK<S55296 +13 :NEXT:CLOSE 1 :RETURN 


Wird während der Ausführung von Modul 2 MODUS 6 festgelegt und danach S 
betätigt, so gewährleistet dieses Modul, daß der ganze Bildschirminhalt auf Band 
gespeichert wird. Dies geschieht völlig unkompliziert, indem der Inhalt des Spei- 
chers von Adresse 1024 bis 2023 (Bildschirmspeicher) plus den entsprechenden 
Farbspeicher-Adressen mit PEEK überprüft wird und die Werte gespeichert wer- 
den. Ein späteres Programm kann dann die Werte von Band lesen und sie wieder 
mit POKE in dieselben Adressen setzen. 


Zusammenfassung 


Dieses Programm vermittelt viel Freude. Das wichtigste ist jedoch, daß es dem 
Benutzer die Möglichkeit gibt, komplexe Grafiken problemlos zu erstellen, sie 
nach Belieben zu bearbeiten und einfach zur Benutzung in nachfolgenden Pro- 
grammen aufzurufen. Aufgrund der hier benutzten Techniken sollte der Benutzer 
auch keine Schwierigkeiten mit selbstgeschriebenen Programmen haben, bei 
denen der Bildschirm- und Farbspeicher mit POKE überprüft werden muß. 


Ein Schritt weiter 

1. Die Speicherung der Hintergrundfarbe des Bildschirms ist nicht vorgesehen - 
diese Funktion kann jedoch problemlos hinzugefügt werden. 

2. Warum soll nicht auf der untersten Bildschirmzeile angezeigt werden, welcher 


Modus gerade gesetzt ist. 


Artist: Tabelle mit Ein-Tasten-Befehlen 


fl Ermöglicht die Neudefinition der Farbe des Zeichens unter dem Cursor 
f2 Ermöglicht die Neudefinition der Bildschirmfarbe 

f3 Ermöglicht die Änderung der Druckfarbe 

f4 Löscht den aktuellen Entwurf 
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f5 Setzt RVS (inverse Anzeige) bzw. setzt sie zurück 
f6 SAVE-Modus 


f7 Pseudo-Modus 

f8 Ermöglicht die Änderung der Cursorfarbe 

u) Ermöglicht die Eingabe der zweiten im Modus 1-3 festgelegten Farbe 
SAVE-Modus: 

R Hier definiert 1 oder 2 die Ecke des zu speichernden Rechtecks 

D Speichert einen Entwurf in kleinem Maßstab 

S Speichert den ganzen Bildschirm 


3.2 CHARACTERS 


Wie gut auch der Zeichenvorrat in einem Homecomputer sein mag, es wird immer 
ein Zeitpunkt kommen, an dem das gewünschte Zeichen nicht zur Verfügung 
steht. Möglicherweise soll in einer anderen Sprache gedruckt und sollen Zeichen 
mit Akzenten benutzt werden, werden seltene mathematische Symbole benutzt 
oder wird ein Sonderzeichen benötigt, um dem neuesten Computerspiel den 
letzten Schliff zu geben. Wie auch immer, der C64 wird dieser Anforderung mit 
den vom Benutzer definierten Zeichen gerecht. 

Beim Starten des Commodore 64 werden sämtliche potentiellen Zeichen in dem 
Nur-Lese-Speicher (ROM) in einem Abschnitt gespeichert, der bei Adresse 
54248 beginnt. Jedes Zeichen nimmt die Form von acht Bytes im Speicher an. 
Das 8*8 Punktraster, aus dem jedes Zeichen besteht, wird durch die einzelnen 
Bits der acht für jedes Zeichen reservierten Bytes dargestellt. Wären die acht By- 
tes im Speicher für ein bestimmtes Zeichen beispielsweise die Bytes 128, 64, 32, 
16, 8,4, 2 und 1, so würden diese in binärer Schreibweise folgendermaßen ausse- 
hen: 10000000, 01000000, 00100000, 00010000, 00001000, 00000100, 00000010 
und 00000001. Nun werden diese Werte in einen Raster gesetzt: 


10000000 
01000000 
00100000 
00010000 
00001000 
00000100 
00000010 
00000001 
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Die gesetzten (oder eingeschalteten) Bits definieren ein Zeichen (in diesem Fall 
eine diagonale Linie), wobei jedes gesetzte Bit auf dem Bildschirm in ein Bildele- 
ment (ein sogenanntes Pixel) umgesetzt wird. 

Dies ist alles gut und schön, da die Zeichendaten jedoch im Nur-Lese-Speicher 
gespeichert sind, können sie nicht geändert werden - sie werden permanent ge- 
setzt, wenn der ROM-Chip gefertigt wird. Glücklicherweise bietet der 064 eine 
Möglichkeit, dieses Problem zu umgehen. Um dies zu verstehen, muß jedoch als 
erstes die Methode untersucht werden, mit der die Bildschirmanzeige generiert 
wird. 

Sämtliche Aufgaben, die sich auf den Bildschirm bei dem Commodore 64 bezie- 
hen, werden über einen separaten Chip verarbeitet, den 6567 Video-Interface- 
Chip (oder VIC II Chip). Dieses Arbeitspferd übernimmt sowohl den Bildschirm 
selbst als auch die Zeichen, die auf den Bildschirm gesetzt werden müssen, wo- 
bei ein Speicherbereich definiert wird, in den die Bildschirminformationen gespei- 
chert werden, und ein weiterer Speicherbereich, der für die Zeichendaten be- 
nutzt wird. j 
Entgegen eventueller Annahmen nimmt der VIC Il die Zeichendaten nicht aus 
dem ROM bei Adresse 53248. Der VIC Il kann nämlich nur 16K des Speichers 
gleichzeitig aufnehmen. Befindet sich der Bildschirmspeicher nun in seiner nor- 
malen Position bei Adresse 1024-2023 im Speicher, so müssen die Zeichendaten 
aus einer anderen Stelle zwischen 0 und 16383 im Speicher genommen werden. 
Um dies zu erreichen, benutzt das Betriebssystem einen kleinen Trick und macht 
den VIC II glauben, daß in 

den Adressen 4096-6143 eine Kopie der Zeichendaten steht. Wann immer der 
VIC II diesen Speicherbereich betrachtet, entdeckt er die Daten des Zeichenvor- 
rats, obwohl in Wirklichkeit in diesem Speicherbereich wahrscheinlich ein Basic- 
Programm steht. 

Dies mag etwas seltsam erscheinen, ist jedoch von größter Bedeutung, da der 
VIC Il nach den Zeichendaten nicht in dem ROM sucht, der nicht geändert werden 
kann, sondern in dem Lese-/Schreibspeicher (RAM), d.h. in dem Speicher, zu 
dem der Benutzer Zugriff hat und den er ändern kann. Ganz so einfach ist dies 
natürlich nicht. Wie schon gesagt, sieht der VIC Il, wenn er den Speicherbereich 
ab Adresse 4096 betrachtet, nicht wirklich diese Adressen, sondern ein Abbild 
der Zeichendaten im ROM. Glücklicherweise umfaßt diese Einrichtung nur zwei 
Speicherblöcke innerhalb des 16K-Blockes, d.h. 4096-6143 und 6144-8193. Wird 
der VIC Il angewiesen, seine Zeichendaten aus einem der anderen 2K Blöcke in- 
nerhalb des gesamten 16K-Blockes zu suchen, so sieht er nicht das ROM-Ab- 
bild, sondern nimmt die Daten, die tatsächlich im Speicher stehen, und behandelt 
sie so, als wären sie der Zeichenvorrat. 

Nun stellt sich die Frage, welcher Block angegeben werden soll. Der erste zur 
Verfügung stehende Block ist der Block 2048-4095. Er hat jedoch den Nachteil, 
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daß an dieser Stelle das Basic-Programm beginnt. Werden in diesen Block neue 
Zeichendaten mit POKE gesetzt, so kommt es zu einem Programmabsturz. Wir 
könnten die Blöcke bei 8192, 10240, 12288 oder 14336 benutzen. Dies würde je- 
doch bedauerlicherweise bedeuten, daß der für das Basic-Programm zur Verfü- 
gung stehende Bereich recht drastisch eingeschränkt werden müßte, da anson- 
sten die Gefahr besteht, daß ein großes Programm den für die Zeichen benutzten 
Bereich überschreibt. Das Problem wird hier dadurch gelöst, daß der ganze Be- 
reich, den der VIC II Chip adressiert, weiter nach oben an den Anfang des Spei- 
chers geschoben wird. 

Wie schon gesagt, kann der VIC Il einen 16K umfassenden Speicherblock gleich- 
zeitig betrachten, allerdings ist er nicht wählerisch, um welchen 16K-Block es 
sich dabei handelt. Es gibt vier derartige Blöcke, die bei 0, 16384, 32768 und 
49152 beginnen. Wird zu dem Block bei 49152 gegangen und wird der maximale 
Speicherplatz für Basic berücksichtigt, so steht an dieser Stelle der ROM. Des- 
halb adressiert der VIC Il den 16K Block ab Adresse 32768. Nachdem dies alles 
geschehen ist, braucht nur noch angegeben zu werden, aus welcher Stelle in die- 
sem Block die Zeichendaten genommen werden und wo die Bildschirmdaten ste- 
hen. Auf diese Weise steht einem Basic-Programm ein Speicherplatz von 30K zur 
Verfügung (2048-32767), während der Bereich für den vom Benutzer definierten 
Zeichenvorrat in dem RAM über 32768 steht. 

Keine Frage, all dies scheint äußerst kompiiziert. Aufgrund der flexiblen Speicher- 
struktur des 064 ist dies jedoch in Wirklichkeit nur eine Frage einiger weniger 
POKE-Befehle und schon ist das Problem gelöst. Aufgrund der von den POKE- 
Befehlen vorgenommenen Änderungen kann der Benutzer mit dem folgenden 
Programm den gesamten oder einen Teil des Zeichenvorrats des Commodore 64 
vollständig neu definieren und den neuen Zeichenvorrat so speichern, daß er von 
anderen Programmen aufgerufen und benutzt werden kann. 


Characters: Variablentabelle 


A$ Ein-Tasten-Befehl, der durch Benutzung von GET ermöglicht wird 

C1 Ursprüngliche Bildschirmfarbe bei Adresse CC 

cc Aktuelle Position des blinkenden Cursors im 
Bildschirmspeicher 

CH Nummer des aktuellen Zeichens im Zeichenvorrat 

CP Zeiger zu der Speicheradresse des Zeichens CP 

MM Zur Änderung von CP eingegebener Wert 

P1 Zeile, in der der Cursor auf dem Bildschirm steht 

P2 Spalte, in der der Cursor auf dem Bildschirm steht 

PP Ursprünglicher Bildschirminhalt bei Adresse CC 

TT% (7,7) Ermöglicht die Verarbeitung von Daten für das aktuelle Zeichen 
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MODUL 3.2.1 


119899 REMBIKCKKEIOIIOIISIOIIOOIORRR KH 
11818 REM INITIALISIERUNG 

11022 REMIS 
i1lasm FÜOKE 53281,6:PRINT CHRS\142) 
i1aqd FOKE 52,128:POKESE, 1283 

11859 POKE 56334 ,PEEK (56334 > AND 254 
1185& FOKE 1,PEEKCI1> AND 251 

11878 FOR I=2 TO 2247:POKE 32768+1,PEEK« 
S3248+TI:NEKT 

11938 POKE 1,PEEK«X1)ORA 

11g9c POKE 56334 ,FEEK (56334 )OR1 

i1laa POKES6S78,PEEK (S56578)I0R3 

11119 POKE 56576, <PEEK (S6S7E8IANDESZIORI 
il128 POKE 648,136 

i113& PÜKE 53272,32 


Mit diesem Modul sollen sämtliche oben aufgeführten Änderungen an der 
Speicherstruktur vorgenommen und ein ursprünglicher Zeichenvorrat in den an- 
gegebenen RAM-Bereich kopiert werden. 


Kommentar 


Zeile 11030: Mit dieser Zeile wird das System in den Großschreibe-Modus ver- 
setzt, da nur der erste der beiden bei dem C64 zur Verfügung stehenden Zei- 
chenvorräte benutzt werden kann, sobald der VIC II das ROM-Abbild nicht mehr 
betrachtet. 


Zeile 11040: Diese beiden POKE-Befehle legen den Anfang des für das Basic- 
Programm zur Verfügung stehenden Bereichs so fest, daß kein eingegebenes 
Programm mit dem für die Zeichen reservierten Speicherbereich kollidieren kann. 
Bei dieser Einstellung steht ein Speicherplatz von 30K zur Verfügung. 


Zeilen 11050-11060: Diese beiden POKE-Befehle schalten die Tastaturprüfung 
ab, so daß keine Unterbrechungen den nächsten Abschnitt des Programms stö- 
ren können. Danach machen sie den ROM-Zeichenvorrat für das Programm 
sichtbar, indem das normale Ein-und Ausgabeverfahren ausgeschaltet wird. 
Während der folgenden Schleife kann das Programm nur gestoppt werden, in- 
dem das System ausgeschaltet wird. 
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Zeile 11070: Mit dieser Zeile wird der Zeichenvorrat von dem ROM in den 
Speicherbereich ab 32768 kopiert - dies umfaßt die Übertragung von 2K Bytes. 


Zeilen 11080-11090: Mit diesen Zeilen wird das normale Ein-/Ausgabeverfahren 
wieder eingeschaltet, und werden die normalen Unterbrechungen wiederherge- 
stellt. 


Zeilen 11100-11110: Diese beiden POKE-Befehle bereiten als erstes den VIC Il 
Chip für eine Änderung des Speicherblockes vor und geben dann Block 1 
(32768-49151) an. 


Zeile 11120: Diese Adresse liegt außerhalb des VIC II Chips und gibt dem Be- 
triebssystem an, an welcher Stelle der Bildschirmspeicher gespeichert werden 
soll - in diesem Fall ab 256*13634816. 


Zeile 11130: Die Adresse, bei der der VIC Il sowohl nach den Bildschirm- als auch 
nach den Zeichendaten innerhalb des 16K-Blockes sucht, wird vom Inhalt der 
Adresse 54272 bestimmt - die vier oberen Bits für die Bildschirmdaten und die 
vier unteren Bits für den Zeichenvorrat. Mit diesem POKE werden die vier oberen 
Bits auf 0010 gesetzt, d.h. der 1K-Block für die Bildschirmdaten beginnt ab 32768 
+ 2048, und die vier unteren Bits auf 0000. Damit wird angegeben, daß Zeichen- 
daten aus der Adresse 32768 + O0 genommen werden. Um zu anderen möglichen 
Adressen in dem 16K-Block zu gelangen, müßte folgende Formel für POKE ange- 
geben werden: ((BILDSCHIRMANFANG— BLOCKANFANG)/1024*16+ (ZEI- 
CHEN —BLOCKANFANG)/2048). Der Bildschirm kann nur bei einer 1K-Grenze 
innerhalb des Blockes beginnen, und die Zeichen nur bei einer 2K-Grenze. Hier 
wird darauf hingewiesen, daß der Bildschirmspeicher bei 1024 und der Zeichen- 
speicher bei 4096 hätte belassen werden können. Allerdings sieht der VIC Il in 
diesem 16K umfassenden Speicherblock wie in dem Block, der bei Adresse 0 be- 
ginnt, ein ROM-Abbild ab 4096. 


Testen von Modul 3.2.1 


Der Test dieses Moduls ist recht einfach. Das Modul wird ausgeführt und das Sy- 
stem ist während einer bestimmten Zeit gesperrt - es kann auf keine Weise unter- 
brochen werden. Wird READY auf dem Bildschirm angezeigt, so sollte sich nichts 
geändert haben - dies zeigt, daß das Modul einwandfrei ausgeführt wurde Ist dies 
nicht der Fall, so werden auf dem Bildschirm sinnlose Zeichen angezeigt. 
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MODUL 3.2.2 


128808 REMBKERKKFITIIIIEK EHEN KK 
12818 REM ZEICHEN DARSTELLEN 

122220 REMIS 
1283a CH=A:DIM TTAC7,T) 

129849 PRINT "WIHELLBLAUI”F:FOR I=1 TO 8: 
PRINT "I[REVERS EINJERBRRBBBI ":NEX<T 

12a50 PRINT "TREVERS EIN] a 
ieB868 CP=32768+CHx3 

12078 PRINT "3SIGRUEN]I”7:FOR I=CP TO CP+7 
FÜR I=7 TO 8 STEP -1 

ı12asa IF <PEEK“I> AND 21J>=21J THEN PRIN 
T "E[REYVERS EIN] "} 

12888 IF <PEEK(CI> AND ZtI>=8 THEN PRINT 
"[REVERS AUS] "5 

12184 NEXsT J:PRINT:NEXT I 

12118 PRINT "THELLBLAUIBERUMMER DES ZEIC 
HENS: "CH 

12128 INPUT "NEUE NUMMER <@a FUER UMDEFI 
NIERUNG? : "> MM: CH=CH +MM 

1213a IF CH{d THEN CH=&a 

ı21948 IF CH>255 THEN CH=255 

12158 IF MM=8 THEN 13988 

12168 GOTO 12648 


Neue Zeichen können auf verschiedene Art und Weise in den Zeichenspeicher 
eingegeben werden. Sie können gegebenenfalls in einem 8*8-Raster gezeichnet 
werden. Danach können die Linien mit den Punkten in Binärform und schließlich 
in Dezimalform umgewandelt werden, die Zahlen als Datenanweisungen eingege- 
ben und dann mit POKE in den Speicher gesetzt werden. Glücklicherweise führt 
der 064 diese Aufgabe wesentlich einfacher aus, indem er das aktuelle Zeichen- 
raster auf dem Bildschirm zeichnet, das dann problemlos verarbeitet werden 
kann. Mit diesem Modul wird das Zeichenraster gezeichnet, während es mit dem 
nächsten verarbeitet werden kann. 


Kommentar 


Zeilen 12040-12050: In der oberen linken Ecke des Bildschirms wird ein 8*8-Käst- 
chen gezeichnet. 
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Zeile 12060: Die Position der aktuellen Zeichendaten wird berechnet. 


Zeilen 12070-12100: Eine vergrößerte Version der aktuellen Zeichen wird in dem 
neu gezeichneten Kästchen ausgedruckt. Hier wird auf die Benutzung des AND 
verwiesen, um den Inhalt der einzelnen Bits innerhalb der acht Bytes im Speicher 
für das Zeichen zu erhalten. Hier besteht die einzige Funktion von AND darin, 
zwei Binärzahlen miteinander zu vergleichen und eine dritte Zahl zu erzeugen, bei 
der nur die Bits gesetzt sind, die auch in den beiden ursprünglich miteinander 
verglichenen Zahlen gesetzt waren. Wird 193 somit durch AND mit 129 verknüpft 
(Binärform 11000001 AND 1000001), so ist das Ergebnis 129, da Bit 6 in der er- 
sten Zahl nicht auch in der zweiten gesetzt ist. Wird der Wert eines Bytes durch 
AND mit 2T (J) verknüpft, wobei J von O bis 7 geht, so wird angegeben, ob Bit J 
gesetzt ist oder nicht - hier wird nochmals darauf hingewiesen, daß die Bits von O 
bis 7 von rechts nach links numeriert sind. 


Zeilen 12100-12160: Die Nummer des angezeigten Zeichens wird angegeben. 
Der Benutzer hat die Möglichkeit, den Zeichenzeiger innerhalb der 255 Zeichen 
hin- und herzubewegen. Wird Null eingegeben, so geht das Programm zum näch- 
sten Modul weiter. 


Testen von Modul 3.2.2 


Auch dieser Test ist recht einfach. Wurde das Modul richtig eingegeben, so wird 
durch Ausführung des Programms (nach einer Pause) eine vergrößerte Version 
von’(@ 'auf dem Bildschirm ausgedruckt. Außerdem sollten auch die anderen Zei- 
chen angezeigt werden können. 


MODUL 3.2.3 


12880 REMIS 
13818 REM ZEICHEN UMDEF INIEREN 
123020 REMAKE 
13838 PRINT "DO 

":REM 48 SPACES 
138498 PRINT "IWEISSI'I' INVERTIEREN",,," 
[GRUEN]'M' ZUM SPIEGELN",,,„"EIWEISSI'R' Z 
URUECK " 
139859 PRINT "ITGRUEN]J'L' PUNKT SETZEN":PR 
INT "[WEISS]I'8' PUNKT LOESCHEN" 
13868 PRINT "IGRUEN]'T' DREHEN",,,"IWEIS 
S1'P' IM DEN SPEICHER SCHREIBEN 
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139878 PRINT "[GRUENI'D' ZEICHENSATZ ABSP 
EICHERN" PRINT" 'C' ZEICHENSATZ LADEN" 
130836 PRINT "L[GSRUEN]'N' SPEICHER NORMAL I 
SIEREN UND BEENDEN 

13168A FRINT "[WEISSI CURSOR-TASTEN UM DE 
NM CURSOR ZU BEWEGEN" 

13118 PRINT "g"; 

13120 GET A$ 

13130 CC=PEEK(2I1)+PEEK (DIA) KESE+FEEK (28 
93:PP=PEEK<CC):C1=55296+CC-34316 

13148 C2=PEEK<CI) 

13152 POKE CC,42:POKE Ci,1 

131SQ FOR I=1 TO 15:NEKT:POKE CC,FP:POKE 
Ei,C2:IF A$="" THEN 13120 

13178 P1=INTiXCC-24816)/49):P2=CC-(34816 
+40%*P1) 

13188 IF <Pi>@a AND As="D") OR <PI<7 AND 
As="M") THEN PRINT A$::G0TO 13128 

1313a IF <P2E>O AND As="M") OR <P2<7 AND 

As="M") THEN PRINT A$::60T0 13128 

13208 IF A$="1" THEN PRINT "LGRUENILREVE 
RS EINI "} 

1321 IF As="a" THEN PRINT "IBLAUILREYER 
S AUSI [HELLBLAUI": 

13228 IF A$s<>"1" THEN 13289 

13238 FOR I=9 TO 7T:FOR !=8 TO ? 

12248 IF PEEK(34816+1+4A+J)=32 THEN 1226 

ei 

13250 POKE 34816+40+1+J,32:POKE 55296+40 
*1+J,182:G0T0 13270 

12260 POKE 34816+1x49+],16A:POKE 35296+4 
B%1+J,181 

1327a NEXT J,J 

13288 IF A$="R" THEN GOTO Izaga 

1329308 IF A$<>"M" THEN 13374 

13394 FOR I=a TU ?:FOR J=a TO7ETTYI,I)= 
@:NEXT J,1I 

13312 FOR I=a TO 7:FOR Isa TO 7 

1332@ IF PEEK(34816+4@x1+J)=160 THEN TT% 
1,0=1 
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13338 NEXT J,I 

13348 PRINT"3"7:FORI=8BTO?:FOR J=7 TO 85T 
EF-I:IF TT#C1,J3=1 THEN PRIMT "IGRUENIER 
EYERS EIN] IREYERS AUSI"? 

133598 IF TTAX1,J>=8 THEN PRINT "TBLAUI " 


1336 NEXT J:PRINT:NEXT I 

1337a IF A$<>"T" THEN 139458 

13388 FOR 1=8 TO 7:FOR J=a TU 7:TTAX1,J9) 
=8:NEXT J,I 

13238 FOR I=8 TO 7:FCÜR I=a TO 7 

13488 IF PEEK<34816+40#1I+rT)=168 THEN TTA 
(7-1,7-DD=1 

13419 NEXT J,1 

134208 PRIMT"3"r:FORI=SOTO7:FOR JI=7 TO AST 
EP-I:IF TT%<C1,J3=1 THEN PRINT "EIGRUENIER 
EYERS EIN] [REVERS AUSI"} 

153438 IF TTA<CI1,J3=a THEN PRINT "IBLAUI " 


= 
r 


124468 MEXT J:PRINT:NEKRT I 

13452 IF A$7>"P" THEN 13518 

13968 :FOR I=A TO 7:TTAXA,ID=O:NEKT 
ia4r7a FOR Isa TO 7:FOR J=a TO 7 

ı1345@ IF PEEK(34816+408x1+J)=1E8 THEN TT% 
9,13=TT#68,1I3 OR 21X7-JI3 

139494 NEXT J,1 

1352Rm FOR I=sA TO 7T:POKE CP+1,TTA°B,II:NE 
»*T:GOTO 12048 

13510 IF A&<>"D" THEN 13554 

13520 OPEN 1,1,1,"ZEICHENSATZ" 

13538 FOR I=8a TO 20847: Tr=FEEK (32768+13: F 
RINT#1,Tr:NE=#T 

135948 CLOSE 1 

13558 IF A$<>"C" THEN 13590 

13568 OPEN 1,1,8,"ZEICHEMNSATZ " 

13574 FOR I=8 TO 20847: INPUTH1,T:POKE 327 
68+1,T:NEST 

135538 CLOSEI 

1359a IF A$<>"N" THEN 13668 

i3698 POKE S52,1640:POKES6,168:CLR 
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13618 FOKESS6578,PEEK(S56578)0R3 

13629 POKE 56576, <PEEK (56576 )AND2S2ZI0OR3 
13639 POKE 53272,21 

12644 POKE 648,4 

13654 END 

136608 GOTO 131209 


Dieses Modul führt eine Reihe von Funktionen im Zusammenhang mit der Verar- 
beitung der Zeichen auf dem Bildschirm aus, wobei diese unter anderem neu de- 
finiert, wieder in den Speicher gesetzt und mit SAVE auf Band gesichert werden 
können. 


Kommentar 


Zeilen 13030-13100: Kurze Instruktionen zur Benutzung des Moduls werden auf 
dem Bildschirm ausgedruckt. 


Zeilen 13120-13160: Dieses Modul birgt keine Überraschungen. Hier handelt es 
sich einfach um die Routine für den blinkenden Cursor aus dem Artist Programm. 


Zeile 13170: Cursorposition: P1 entspricht der Zeilennummer und P2 der Spal- 
tennummer, wobei die Zeilen von oben nach unten und die Spalten von links nach 
rechts auf dem Bildschirm verlaufen. 


Zeilen 13180-13190: Begrenzt die Cursorbewegung mit dem 8*8-Quadfrat. 


Zeilen 13200-13210: Wird 1 betätigt, so wird ein grünes Quadrat eingezeichnet. 
Wird O betätigt, so wird ein Quadrat gelöscht. 


Zeilen 13230-13270: Diese beiden Schleifen durchsuchen das Quadrat, wobei die 
eingezeichneten oder leeren Elemente umgekehrt werden, so daß ein inverses 
Zeichen erzeugt wird. 


Zeile 13280: Durch Eingabe von R wird zum vorhergehenden Modul zurückge- 
gangen. 


Zeilen 13290-13360: Diese Routine erzeugt ein Spiegelbild des Rasters - das Zei- 
chen wird scheinbar von hinten betrachtet. 


Zeile 13300: Das ganzzahlige Feld TT % wird gelöscht. 


Zeilen 13310-13330: Der Bildschirminhalt wird in das Feld übertragen. Der Bild- 
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schirm kann nicht direkt verarbeitet werden, da dadurch ein Quadrat von links 
nach rechts übertragen und dann zwei Mal gelesen werden könnte, so daß ein 
sinnloses Ergebnis entsteht. 


Zeilen 13340-13360: Nachdem der Inhalt des Rasters in das Feld übertragen wur- 
de, werden die Informationen nun wieder auf den Bildschirm gelesen. Das hori- 
zontale Element wird jedoch umgekehrt, so daß Position 7 in Position O gesetzt 
wird. 


Zeilen 13370-13440: Der Inhalt des Rasters wird um 90 entgegen dem Uhrzeiger- 
sinn gedreht. 


Zeilen 13420-139440: Der Inhalt das Feld wird wieder entgegen dem Uhrzeigersinn 
auf den Bildschirm gesetzt - so wird Position 0,7 zu Position 0,0 und Position 0,0 
zu Position 7,0. 


Zeilen 13450-13500: Das neu definierte Zeichen wird wieder in den Zeichenspei- 
cher gesetzt. Es wird nun zu einem festen Bestandteil des vom Benutzer definier- 
ten Zeichenvorrats. 


Zeile 13460: Da nur acht Bytes für jedes Zeichen erforderlich sind, müssen nur 
acht Bytes des Feldes, Zeile Null, 0-7, gelöscht werden. 


Zeilen 13470-13490: Jede Zeile der Feldmatrix wird durchsucht. Wird ein einge- 
zeichnetes Quadrat entdeckt, so wird es in ein einzelnes Bit in einem der acht By- 
tes übersetzt, mit denen das Zeichen definiert wird. Nachdem AND für das Lesen 
einzelner Bits benutzt wurde, wird hier auf die Benutzung von OR zur Verarbei- 
tung einzelner Bits verwiesen. Werden zwei Binärzahlen mit OR verknüpft, so 
werden sämtliche Bits, die in einer (oder beiden) Zahlen gesetzt sind, auch in der 
sich ergebenden Zahl gesetzt. Wird eine Zahl durch OR mit 2T (J) verknüpft, wo- 
bei J vonO bis 7 geht, so bedeutet dies, daß Bit J eingeschaltet wird, unabhängig 
davon, ob es vorher gesetzt war oder nicht. 


Zeile 13500: Die acht Bytes des Feldes werden bei der Position in den Speicher 
gesetzt, die vorher von dem Zeichen belegt wurde, das neu definiert wurde. 


Zeilen 13510-13540: Der Speicherbereich, der bei 32768 beginnt, wird in Form 
von Ganzzahlen auf Band gespeichert. 


Zeilen 13550-13560: Ein vorher gespeicherter Zeichenvorrat kann zur weiteren 
Verarbeitung vom Band geholt werden. Hinweis: Dies ist auch ein Beispiel dafür, 
wie der neue Zeichenvorrat von einem anderen Programm zur späteren Benut- 
zung aufgerufen werden kann. 
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Zeilen 13590-13650: Wird das Programm beendet, so muß der Speicher wieder in 
die Ausgangsbedingung zurückversetzt werden - es sei denn, der neue Zeichen- 
vorrat soll mit einem anderen Programm benutzt werden, das nun geladen wird. 
Wird der Speicher nicht zurückgesetzt, so bedeutet dies, daß nachfolgenden 
Programmen 8K Speicherplatz weniger zur Verfügung steht und sie gezwungen 
sind, den neu definierten Zeichenvorrat zu benutzen. 


Zeile 13600: Basic wird wieder auf seine ganze potentielle Größe zurückgesetzt. 


Zeilen 13610-138620: Der von VIC Il adressierte Speicherblock wird auf 3 zurück- 
gesetzt (0-16383). 


Zeilen 13630-13640: Der Anfang des Bildschirmspeichers wird wieder auf 1024 
(die normale Position) und der Anfang des Zeichenspeichers auf 4096 zurückge- 
setzt. 


Testen von Modul 3.2.3 


Da es sich hier um ein langes Modul mit einer Vielzahl von Funktionen handelt, 
wird empfohlen, daß jede Funktion bei der Eingabe getestet wird. Ist eine be- 
stimmte Funktion fehlerhaft und wurden Änderungen in eine Zeile eingegeben, 
so braucht das Programm nicht von Anfang an neu ausgeführt zu werden. In die- 
sem Fall wird einfach GOTO 12000 ausgeführt, da der Zeichenvorrat über dem 
Basic-Bereich und die Speicherstruktur durch die Eingabe neuer Zeilen nicht ge- 
stört werden. Läuft alles einwandfrei, so können die in den Kommentaren be- 
schriebenen Funktionen benutzt werden. 


Zusammenfassung 


Wie Sie feststellen werden, ist dies schon in sich ein äußerst erfreuliches Pro- 
gramm. Wie leistungsfähig dieses Programm jedoch ist, zeigt sich erst, wenn es 
zur Belebung der Ausgabe anderer Programme benutzt wird. Da es Basic nicht 
wirklich verschiebt, sondern nur den zur Verfügung stehenden Platz beschränkt, 
können neue Programme in das System geladen werden, die den neu definierten 
Zeichenvorrat ebenfalls benutzen können. Wurde das System seit der Neudefini- 
tion des Zeichenvorrats ausgeschaltet oder der Speicher standardisiert, so 
braucht nur das erste Modul vor alle nachfolgenden Programme hinzugefügt (mi- 
nus Zeilen 11050-11090) und der neu definierte Zeichenvorrat mit der Routine bei 
13560-13580 von Band geladen zu werden. Wird der Buchstabe A als Leerzei- 
chen neu definiert, so muß jedoch daran gedacht werden, daß jedes vom Pro- 
gramm ausgegebene A, selbst in der Programmauflistung, neu definiert wird. Im 
Hinblick auf die Leserlichkeit ist es im allgemeinen besser, nur die Grafikzeichen 
neu zu definieren. 
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Neben den allgemeinen Vorteilen des Programms wurden hier jedoch auch eini- 
ge der Möglichkeiten vorgestellt, die sich aus der flexiblen Speicherstruktur des 
C64 ergeben. Außerdem wurden die Techniken angesprochen, mit denen die zur 
Verfügung stehenden Funktionen maximal ausgenutzt werden können. Möchten 
Sie weiter in die Speicherverarbeitung vordringen, so sollten Sie das Programm- 
handbuch "Alles über den Commodore 64', Band 1 der Sachbuchreihe, erwerben 
- mit diesem Programm als Rückhalt sollten Sie dann keine Schwierigkeiten ha- 
ben, die Angaben in diesem Handbuch zu verstehen und anzuwenden. 


Ein Schritt weiter 


1. Eine einfache Erweiterung des Programms besteht in einer Routine, mit der 
die Position von zwei Zeichen ausgetauscht, oder mit der ein neu definiertes Zei- 
chen an eine andere Stelle in dem Zeichenvorrat gesetzt werden kann. 

2. Es wäre äußerst zeitaufwendig, einen ganzen neuen Zeichenvorrat mit diesem 
Programm zu erstellen. Warum also nicht einige Befehle zur Blockbearbeitung 
hinzufügen, mit denen ein ganzer Zeichenvorrat innerhalb bestimmter Grenzen 
umgekehrt, umgedreht, spiegelbildlich dargestellt werden kann usw. Programm- 
auflistungen sehen äußerst interessant aus, wenn sämtliche Buchstaben auf dem 
Kopf stehen 


3.3 SPRITES 


Mit dem Characters-Programm haben wir den Weg für die Überprüfung einer der 
Funktionen des Commodore 64 geebnet, von denen andere Benutzer von Home- 
computern nur träumen können- Sprites. Mit der Einführung des C64 sind die 
Tage vorbei, in denen nur Programmierer im Maschinencode hochauflösende 
Entwürfe glatt und problemlos mit einem unglaublichen Realismus über den Bild- 
schirm bewegen konnten. Insbesondere im Bereich der Computerspiele stellen 
die Sprites eine Revolution bei den Homecomputern der niedrigeren Preisklasse 
dar. 

Im wesentlichen unterscheidet sich ein Sprite nur wenig von den vom Benutzer 
definierten Zeichen, mit denen wir gerade experimentiert haben. In das Erstellen 
der Sprite-Funktion wurde viel technisches Vorstellungsvermögen und techni- 
sche Kompetenz gesteckt, aus der Sicht des Benutzers ist ein Sprite jedoch nur 
einfach ein größeres Zeichen, das flexibler über den Bildschirm bewegt werden 
kann. 

Wie die Zeichen des normalen Zeichenvorrats werden die Sprites mit einer Reihe 
von Bytes definiert, die im RAM gespeichert sind. Anstelle eine 8*8-Rasters be- 
nutzen Sprites jedoch ein Raster aus 24 mal 21 Punkten. Dies kann natürlich nicht 
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mit den 64 Bits in acht Bytes definiert werden. In Wirklichkeit wird jede Zeile eines 
Sprite mit 3 Bytes (24 Bits) definiert. Da 21 Zeilen vorhanden sind, sind insgesamt 
63 Bytes zur Definition eines Sprite erforderlich. Sprite-Daten können an einem 
beliebigen sicheren Platz innerhalb des 16K-Speicherblocks gespeichert wer- 
den, der von dem VIC Il adressiert wird. Innerhalb dieses Blocks können bis zu 
acht Sprites gleichzeitig definiert werden. Wesentlich mehr Sprite-Entwürfe kön- 
nen jedoch in Reserve gehalten und gegebenenfalls sofort aktiviert werden. 

Die Hauptspeicheradressen, mit denen die Benutzung von Sprites kontrolliert 
wird, sind: 

a) 2040-2047: Diese acht Adressen sind die sogenannten Sprite-Pointer. Sie ge- 
ben an, aus welcher Stelle in dem 16K-Block die Daten für einen bestimmten 
Sprite genommen werden müssen. Da Sprites in Blöcken zu 64 Bytes gespei- 
chert sind (auch wenn nur 63 Bytes benutzt werden) kann mit den 256 Werten, 
die mit POKE in jeden Pointer gesetzt werden können, der gesamte 16K-Block 
abgedeckt werden. So werden die Daten für Sprite 2 bei 64*PEEK(2042) aus dem 
Speicher genommen. 

b) 53269: Das Register zur Aktivierung der Sprites. Ein Sprite ist nur sichtbar, 
wenn das entsprechende Bit in diesem Register gesetzt ist. 

c) 53248-53264: Die Register für die Sprite-Position. Sie werden paarweise von 
53248 bis 53263 benutzt und definieren die X- und Y-Koordinaten der oberen lin- 
ken Ecke des Sprite-Rasters auf dem Bildschirm. Da jedoch der Bildschirm brei- 
ter ist als der Höchstwert, der in einem einzelnen Byte gespeichert werden kann 
(255 im Vergleich zu 320 Pixels), wird mit einem Bit in Adresse 53264 angegeben, 
ob die Position jedes Sprite auf der X-Achse größer ist als 255. Dies ergibt insge- 
samt 512 mögliche Positionen auf der X-Achse und 256 Positionen auf der Y- 
Achse. 

d) 53287-53294: Die Register für die Sprite-Farbe. Jeder Sprite kann eine der 16 
Farben des C64 annehmen, indem einfach der richtige Wert mit POKE in das ent- 
sprechende Register gesetzt wird. In Wirklichkeit sind mehr Adressen als diese 
relevant, sie reichen jedoch für den Augenblick aus. 


Schließlich muß noch entschieden werden, an welche Stelle die Sprite-Daten ge- 
setzt werden sollen. Werden nur drei Sprites gewünscht, so wird der Kassetten- 
Eingabe-/Ausgabepuffer empfohlen, der in den Adressen 828 bis 1019 steht. 
(Natürlich können keine Daten geladen oder gesichert werden, während die Spri- 
tes an dieser Stelle stehen.) Werden mehr Sprites gewünscht, so muß ein 
Speicherbereich für sie reserviert werden, genau wie bei den vom Benutzer defi- 
nierten Zeichen. Der Abwechslung wegen werden wir für unser Programm zur 
Definition von Sprites eine andere Lösung wählen, als bei dem Characters-Pro- 
gramm. Wir werden den Anfang des Basic-Programms von 2048 nach 4096 ver- 
schieben, so daß uns 2K im Speicher verbleiben, in die wir bis zu 32 separate 
Gruppen mit Sprite-Daten setzen können. Dies ist in sofern praktisch, als die 
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Struktur des Bildschirmspeichers in keiner Weise verschoben zu werden braucht 
- allerdings muß die Basic-Anfangsadresse zurückgesetzt werden, bevor das 
Programm geladen wird. 

Nachdem dies geschehen ist, ermöglicht das Programm genau wie der Zeichen- 
Generator die Definition und Verarbeitung der Sprite-Raster und bietet die Mög- 
lichkeit, die Raster zur Benutzung durch weitere Programme auf Band zu sichern. 
Dieses Programm wird am einfachsten eingegeben, indem zuerst Characters ge- 
laden und dieses Programm dann angepaßt wird. 


Ladeprogramm für Sprites 


Die folgenden Zeilen gehören NICHT zu dem Hauptprogramm, sondern sollen in 
den Commodore 64 eingegeben und auf Band gespeichert werden, bevor das 
Hauptprogramm eingegeben und gespeichert wird. Dieses Programm soll den 
Anfang von Basic zurücksetzen und danach das Hauptprogramm in den neu kon- 
figurierten Speicher laden: 


100 REM. KRERERRERKRRRERER 


110 REM LOADER 

120 REM ee KERERRRRRERRRERERK 

130 POKE43,1:POKE 44,16:POKE 4096,0:CLR 
140 LOAD "SPRITES" 


Kommentar 


Die Adressen 43 und 44 sind die Zeiger, mit denen das System auf den Anfang 
des Basic-Programms zeigt, in dem normalerweise die Werte 1 und 8 stehen 
(Adresse 1 + 256*8 2049). Die Hauptzeile ändert nur diesen Wert in 4097. Das er- 
ste Programmbyte muß stets eine Null sein, die mit POKE gespeichert wird. Da- 
nach wird der Speicher gelöscht und damit die Neukonfiguration beendet. Nach- 
dem dies geschehen ist, wird das Hauptprogramm automatisch geladen. Selbst 
auf die Gefahr hin, Sie zu langweilen, möchte ich noch einmal wiederholenn, daß 
diese Zeilen NICHT Teil des Hauptprogramms sind. Werden sie am Anfang des 
Hauptprogramms aufgenommen, so werden die ersten 2K des Programms ge- 
löscht, wenn dieses ausgeführt wird. 


Sprites: Variablentabelle 
(sofern sie von Characters abweichen) 


sp Adresse des aktuellen Sprite-Pointers 
SC Adresse des Registers für die Sprite-Farbe 
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SS Anfang der Sprite-Daten 


FNS(SN) Anfang des Datenblockes für Sprite SN 

SN Sprite-Nummer 

TT% (20,23) Feld für die vorübergehende Verarbeitung von Sprite-Daten 
MM Wert, in den SN verschoben wird. 

MODUL 3.3.1 


12880 REMIS 
12202 REM SPRITE-POINTER SETZEN 

128985 REMIS KK aka ık 
12819 5P=2849:5£=53263:55=29048 

12028 DEF FNS(CSNI=SS+BE4RCSNI 

128368 SN=O:DIM TTX\120,23)3:POKE 53281,6 


Die hier vereinbarten Variablen werden in der Variablentabelle erläutert. 
MODUL 3.3.2 


13290 REMOTE 
13019 REM SPRITE DARSTELLEN 

1352822 REMIS 
130838 POKE 532693,1:POKE 53287 ,1:POKE SP, 
FNS(CSMI.-E4 

12044 POKE 53248,0:POKE 53264 ,1:POKE 532 
43,90 

130858 PRINT "W"5:FOR I=1 TO 11:PRINT "ICH 
ELLBLAUITREVERS EIN] 


” 


13868 PRINT "I[GELE]IRRRPPBPEBERPBEBBII 
&": NEXT 

13878 FRINT "DILREYERS EINITHELLBLAUI 

13489 PRINT "DEHELLROTISER 

ZEN mM 

13898 PRINT "SIGRUEN]"F:FOR I=SFNS(SN? TO 

FNS(iSN)+B2 STEFR 3:FOR I=8 TO 2 

13188 FOR K=7 TO a STEP -1 

13110 IF <PEEK«<I+J> AND 2ZtK)>=2tK THEN PR 

INT "@"; 

13128 IF <(PEEK<(I+J> AND ZtK)=98 THEN PRIN 
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ee 
1313@ NEXT K,J:PRINT:NEXT I 

13148 PRINT "SILHELLGRUENISPRITE NUMMER : " 
FSN 

131508 INPUT "SPRITENUMMER ODER @ ZUM UMD 
EF. 2 "MM: SN=SN+MM 

1S1E@ IF SN<@ THEN SN=@ 

1317@ IF SN>31 THEN SN=31 

13188 IF MM=@ THEN FOKE 53248,9:POKE 532 
84,1:POKE 53249,200:G0T0 '14998 

1319@ GOTO 13998 


Nahezu identisch mit dem Modul für das Zeichnen des Rasters in Characters. 
Kommentar 


Zeile 13030: 53269 ist das Register zur Aktivierung der Sprites - mit diesem 
POKE-Befehl wird das Bit 0 gesetzt und Sprite 0 eingeschaltet. 53287 ist das 
Farbregister für Sprite 0, und der POKE-Befehl setzt die Farbe auf weiß. Der Poin- 
ter von Sprite Null wird so gesetzt, daß er auf den ersten 64 Bytes umfassenden 
Block in dem reservierten Speicherbereich zeigt. 


Zeile 13040: Sprite O ist auf der X-Achse auf 256 und auf der Y-Achse auf 80 ge- 
setzt. 


Zeilen 13050-139080: Die Umrahmung des Rasters wird ausgedruckt. 


Zeilen 13090-13130: Die I-Schleife betrachtet die Sprite-Daten in Dreiergruppen, 
die J-Schleife betrachtet jedes Byte und die K-Schleife jedes Bit. Für jedes ge- 
setzte Bit wird ein Kreis ausgedruckt. 


Zeilen 13140-13190: Der Benutzer kann den Sprite-Pointer verschieben. Hier wird 
darauf hingewiesen, daß der Speicherbereich, auf den der Sprite-Pointer zeigt 
und nicht der eigentliche Sprite-Pointer geändert wird. In dem vorliegenden Pro- 
gramm wird stets Sprite O benutzt. 


Testen von Modul 3.3.2 


Bei der Ausführung dieses Moduls (wobei das Ladeprogramm zuerst ausgeführt 
werden muß) wird ein sinnloser Sprite rechts neben dem Raster angezeigt. Die 
einzelnen Punkte werden in dem Raster ausgefüllt. Gelegentlich ist die Verbin- 
dung zwischen den beiden wegen der automatischen Schattierungen in den Spri- 
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tes nur schwer zu sehen. Zwei auf derselben Zeile gesetzte Bits, die mit einem 
Leerzeichen voneinander getrennt werden, werden in Wirklichkeit als ein schwar- 
zer Block angezeigt. 


MODUL 3.3.3 


14900 REMHSSORSO aka 
i4a1d REM SPRITE UMDEFINIEREN 
14828 REMIS RR Ra akak ak af ak ak ak ak 
13854 PRINT "ID 

":REM 39 SPACES 
14040 F#="IRRRRRERRPRERPRBEBIREIB" 
14a50 PRINT F&: "[WEISSI'I' INVERTIER." 
14868 PRINTF&: "[GRUENI'M' SPIEGELN” 
140870 PRINTFEF"LWEISSI'R' ZURUECK" 
199838 PRINTFS "TGRUEN]'L' SETZEN" 
14a39A PRINTFE}"I[WEISSI'A' LOESCHEN" 
14129 PRINT F&: "tGRUEN]I'T' DREHEN" 
14110 PRINTF$} "I[WEISSI'P' SPEICHERN" 
14128 PRINTFS$3 "LGRUEN]I'D' SAVYE'N" 
141308 PRINTF$:"I[WEISSI'L' LADEN" 
194140 PRINTF#S? "IGRUEN]J'E' ENDE" 
141508 PRINT F&; "[WEISSICURSORTASTEN" 
14155 PRINT F&: "[WEISSIZUM STEUERN" 
14168 FRINT "3"; 
i141ro GET A$ 
141509 CC=PEEK<2ZIIDI+PEEK (210) 256 +PEEK (209 
S3:PP=PEEK (CCI:C1=-5529I6 +CC-1024 
1419 C2=PEEK(CI) 
14209 POKE CC,42:POKE Ci,1 
ı14218 FOR 1I=1 TO 15:NEXT:POKE CC,PP:POKE 
C1,C2:IF A$="" THEN 141708 
14228 P1=INTCCCC-1924)3748)3:P2=CC-<(la24r+4 
DBxP1) 
14239 IF <P1>8 AND A&="D") OR <PI<Za AND 
A&="M"> THEN PRINT A&::G0TO 141768 
14298 IF <P2>8 AND A$="W) OR \“P2<23 AND 
aA$="W"'> THEN PRINT AS} :60T0 14178 
14256 IF A$="1" THEN FRINT "IGRUENJeN";: 
GOTC 14170 
14268 IF AS="8" THEN FRINT "[BLÄAUJSTREVER 
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5 AUS] [HELLBLAUI"?:GOTO 14178 

14278 IF A&<>"1" THEN 14330 

14288 FOR I=8 TU 28:FOR J=8 TO 23 

194290 IF PEEK(IA24+1Ix40+J)=32 THEN 14318 


14308 POKE 1924+40x*1+J,32:POKE 55236+40% 
1+J,182:GCT0 14320 

i14310 POKE 19024+1Ix4d+J,S1:POKE SI52I6+408% 
I1+J,181 

14320 NEXT J,1:G0T0 14178 

14330 IF A$="R" THEN GOTO 13938 

14348 IF A&<>"M" THEN 14920 

14358 FOR I=8 TO 28:FOR J=8 TO 23:TTACI, 
JI=B:NEKT J,1 

14368 FÜR I=8 TO 28:FOR J=oa TO 23 

14370 IF PEEK\1024+40#+1+J2=168 THEN TT7%C 
1,J3=1 

14380 NEXT J,I 

14398 PRINT"3",:FORI=@BTO2U: FOR J=23T08 S 
TEP-1:IF TTA£I,J>=1 THEN PRINT "ITGRUENIT 
REVERS EIN]J IREVYERS AUSITHELLBLAUI"F 
14488 IF TTASXSI,T>=8 THEN PRINT "TBLAUI " 
1441A NEST J:EFRINT:NEST I:GOTO 14178 
144208 IF A&S<>"T" THEN 194598 

144328 FGR I=8 TO 28:FOR J=a TO 23:TTA\l, 
ID=B:NEXT J,I 

i4448 FÜR I=8 TO Z&:FOR J=8 TO 28 

1445m IF PEEK<1B24+4A%x1I+rJ?>=81 THEN TTACE2 
8-1,28-1I2=1 

1446@ NERT J,1I 

1447@ PRINT"3"::FORI=SOTO24:FOR J=23T08 5 
TEP-1:IF TTAXI,J>=1 THEN PRINT "IGRUEN]I® 
T[HELLBLAUT"? 

143486 IF TTAC1,J>=8 THEN PRINT "I[BLAUI IL 
HELLBLAUI"? 

14494 NEXT J:FRINT:NEXT 1:GOTO 14178 
145ga IF A$<>"P" THEN 14568 

1451a FOR 1-8 TO 28:FOR J=8 TO 2:TTACI,J 
>=8:NEXT J,I 
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14528 FOR I=8 TO 28:FOR J=a TO 2:FOR K=8 
TO 7 
14534 IF PEEK(<19024+40%1+1%8+K)=81 THEN T 
TA£1,J3=TTA£1,J>3 OR 2t1(C7-K) 
14548 NET K,J,I 
14558 FOR 1-8 TO28:FOR J=a TO 2:POKE FNS 
(SNI+IRX3+J ,TTACI,JD:NEXT J,1:G0T0 13938 
14564 IF A$<>"S" THEN 14620 
14570 PRINT EISTHLIEICH 
RUENIJANZAHL SPRITES: NN 
14532 IF NN<1 OR NN>32 THEN 14578 
1459& OPEN 1,1,1,"S5SPRITES":PRINT#1,NN 
146698 FOR 1-9 TO NN#64-1:TAÄ=PEEK«(SS+I):P 
RINT#1,TA:NEXT 
ıa61a CLOSE 1 
14820 IF A$<>"L" THEN 14668 
14638 OPEN 1,1,8,"SPRITES": INPUT#1,NN 
14642 FOR I=-8 TO NN*64-1:1INPUT#1,T:POKE 
SP+1,T:NEXT 
14652 CLOSEI 
14666 IF A&<>"E" THEN 146824 
14678 POKE 532693,8:POKE 43,1:POKE 44,93:P 
OKE 2843,8:CLR:END 
194880 IF A&<>"R" THEN 14748 
146394 INPUT "SlelsisisisisteinininieisieirpiriririeiTeng GR 
VENJAUSTAUSCHEN MIT SPRITE NUMMER:"7S2 
1478 IF 5S2<8 OR S2}>31 THEN 14698 
1471a FOR I=SFNS<CSNI TO FNS(SN?+G2:LET Ti 
=FEEK<TII:FOKE I,PEEKCI+FNS<SN?-FNS(S2)) 
147208 POKE I+FNS«SND-FNS\S2I,TI:NEKT 
14732 GOTO 1348 
14748 IF A$<>"C" THEN 194940 
14750 IF PEEK<S3Z76)IAND 1=1 THEN POKE 53 
276,8:G0T0 14170 
14762 INPUT "TGRUEN ] SsIsisirie 
farbe fuer O1 (O-15>:"7c1 
1477a IFCI<BORCIYISTHENPRINT"D 

":GOTO 14768 


GHLILIEILIGSEFLI GIGS LFEICHENLILICIES 














14788 INPUT "IWEISS]: 
farbe fuer 18 (9-13):":c2 
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147938 IFC2<@ORC2Z>1ISTHENPRINT"O 
":GOTO 14788 


14322 INPUT "TGELB Speise 
farbe fuer 11 (9-159:"7c3 
14310 IFC3S<BORCIFISTHENPRINT"O 

":G0OTO 14348 
ı4820 POKE 53285, <PEEK\S53285)AND248)0ORCI 
:POKE 53287 ,<PEEK (SSZ8 7 IANDEIOIORCT 
14838 POKE 53286, PEEK“53286? AND 248) O 
R C2:POKE S353276,1:GC0T0 14178 
133458 50TQ0 141780 





Dieses Modul erfüllt denselben Zweck wie das Modul zur Neudefinition der Zei- 
chen im letzten Programm. 


Kommentar 

Zeilen 14050-14150: Instruktionen zur Benutzung des Moduls. 

Zeilen 14170-14210: Standardmodul zur Bewegung des Cursors. 

Zeile 14220: Zeile und Spalte des Cursors in dem Raster. 

Zeile 14330: Durch R wird zu dem vorhergehenden Modul zurückgegangen. 
Zeilen 14340-14490: Drehung im Uhrzeigersinn. 


Zeilen 14500-14550: Der neu definierte Sprite wird wieder in den Speicher ge- 
setzt. Die I-Schleife überspringt jede Zeile des Rasters ab. Die J-Schleife prüft in 
Gruppen von drei Bytes, während die K-Schleife jedes Bit überprüft. 


Zeilen 14560-14610: Die Sprite-Daten werden auf Band gesichert. Der Benutzer 
kann angeben, wie viele Sprites gesichert werden sollen. Dadurch können drei 
Sprites gesichert werden, die in dem Bandeingabepuffer eines nachfolgenden 
Programms gespeichert werden können. 

Wird ein Sprite vom Band zur späteren Verarbeitung aufgerufen, so sind die gera- 
de im Speicher stehenden Sprites verloren. 


Zeilen 14660-14670: Diese Routine schaltet den Sprite aus, normalisiert den 
Speicher und beendet das Programm. 


Zeilen 14680-14730: Mit X können die aktuellen Sprite-Daten mit Daten in einer 
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anderen Position ausgetauscht werden. Dies ist besonders bei Dreiergruppen 
von Nutzen. 


Zeilen 14740-14830: Mit dieser Routine kann der Benutzer in den Mehr-Farben- 
modus der Sprites gehen oder diesen verlassen. 


Zeile 14750: Ist der mehrfarbige Modus gesetzt (d.h. das entsprechende Bit in 
dem Mehr-Farben-Register für die Sprites bei Adresse 53276 ist gesetzt) und 
wird diese Funktion aufgerufen, so wird der mehrfarbige Modus für Sprite O zu- 
rückgesetzt (ausgeschaltet). 


Zeilen 14760-14800: Die rätselhaften 01, 10 und 11 in diesen Eingabeaufforderun- 
gen beziehen sich auf Bitkombinationen in dem Sprite-Raster. Im mehrfarbigen 
Modus wird davon ausgegangen, daß der Sprite nur über eine Länge von 12 
Punkten verfügt (obwohl es in Wirklichkeit doppelt so lang ist). Die Bits werden 
paarweise von links gelesen und bilden natürlich Paare von 00, 01, 10 oder 11. 
Jede dieser drei Kombinationen erzeugt eine andere Farbe im mehrfarbigen Mo- 
dus, wobei 00 die Hintergrundfarbe des Bildschirms ist, die von dem Mehr-Far- 
ben-Register der Sprites bei Adresse 53285 festgelegt wird. Die Farbe 10 wird 
von dem normalen Farb-Register für Sprites festgelegt. Die Farbe 11 wird aus 
dem Mehr-Farben-Register der Sprites bei Adresse 53286 genommen. 


Testen von Modul 3.3.3 


Sämtliche in dem Kommentar beschriebenen Funktionen sollten verfügbar sein, 
nachdem das Modul eingegeben wurde. Wie bei dem entsprechenden Modul in 
Characters wird empfohlen, jede Funktion bei der Eingabe zu testen. 


Zusammenfassung 


Denkt man etwas über dieses Programm nach, so wird man feststellen, wie ein- 
fach Sprites benutzt werden können, nachdem die Funktionen einiger weniger 
Speicheradressen verstanden wurden. Das Programm selbst erzeugt eine endlo- 
se Folge von Sprites, die zur späteren Benutzung auf einem separaten Band ge- 
speichert werden können. Aufgrund der in dem Programm enthaltenen Techni- 
ken ist es sehr einfach, derartige Sprites in selbst erstellten Programmen 
maximal zu nutzen. 


Ein Schritt weiter 
1. Das Programm sieht eine weitere Sprite-Funktion nicht vor, d.h. die Funktion 


zur Erweiterung, mit der Höhe oder Breite des Sprites verdoppelt werden kann 
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(dieselbe Anzahl von Bytes -nur einfach länger). Diese Funktion kann problemlos 
hinzugefügt werden, da nur das entsprechende Bit in dem Register bei Adresse 
53277 für die horizontale Erweiterung und bei Adresse 53271 für die vertikale Er- 
weiterung gesetzt werden muß. Für dieses Programm ist das richtige Bit das Bit 
0. 

2. Es wäre gut, wenn nur ein Teil einer Gruppe mit Sprites von dem Band gerufen 
werden könnte, beispielsweise Sprite für Sprite, um entscheiden zu können, ob 
dieser Sprite in die aktuelle Gruppe kompiliert werden soll oder nicht. Dies könn- 
te mit einer kleinen Änderung der Laderoutine ermöglicht werden. 


3.4 HI-RES 


Obwohl die Möglichkeiten der vom Benutzer definierten Zeichen und Sprites na- 
hezu unbeschränkt sind, verfügt der Commodore 64 noch über einen weiteren 
wichtigen Grafik-Modus, die sogenannte Bit-Mapping (Bit-Raster-Grafik). Dies 
bedeutet, daß der Benutzer nicht mehr mindestens eines der 1000 Zeichenqua- 
drate auf dem normalen Bildschirm adressieren kann, sondern jedes einzelne Pi- 
xel (Bildelement) bzw. jeden einzelnen Punkt auf dem Bildschirm setzen kann. In 
diesem Modus können Linien und Kurven auf dem Bildschirm gezeichnet wer- 
den. Um diese Funktion jedoch maximal nutzen zu können, benötigen Sie die 
Grafikerweiterung SIMONs BASIC für den 064, mit der Ihnen eine Vielzahl von fle- 
xiblen Grafik-Befehlen zur Verfügung stehen. 

Um das hier vorgestellte Programm verstehen zu können, sind einige Kenntnisse 
über den Aufbau des Bit-Map-Bildschirms erforderlich. Der Bildschirm selbst 
umfaßt 320*200 separate Positionen, d.h. insgesamt 64000. Um jede dieser Posi- 
tionen separat speichern zu können, sind 8000 Bytes im Speicher erforderlich, 
d.h. 64000 einzelne Bits. Jede der Standard-Zeichenpositionen erfordert acht By- 
tes (das 8*8 Raster, das für die vom Benutzer definierten Grafiken benutzt wur- 
de). Wird oben links auf dem Bildschirm begonnen, so werden die ersten acht By- 
tes (0 bis 7) des Bildschirmspeichers dazu benutzt, die Position zu erstellen, die 
auf dem normalen Bildschirm die erste Zeichenposition darstellt. Die zweiten 
acht Bytes bilden das zweite 8*8 Raster usw. über die ganze Zeile. Da eine Zeile 
über 40 Zeichenpositionen verfügt, enthält jede Zeile 320 Bytes. Da im Bit-Map- 
Modus einzelne Pixels adressiert werden können, können in dieser Zeile mit 8*8- 
Rastern acht einzelne Linien in Pixelstärke stehen. (Würden sie jedoch gezeich- 
net, so würden sie wie ein fester Balken aussehen.) 

Der für die Aufnahme des Bit-Map-Bildschirms erforderliche Speicherplatz von 
8K kann natürlich nicht in dem normalen 1K-Bildschirmspeicher gespeichert wer- 
den und kann auch diesen Bereich nicht als Teil seines Arbeitsbereichs benut- 
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zen, da die Adressen 1024 bis 2023 für die Speicherung der Farbinformationen für 
den Bit-Map-Bildschirm benutzt werden. In dem folgenden Programm wurde der 
Anfang des Bildschirmspeichers auf Adresse 8192 festgelegt, so daß ein 
Speicherplatz von 6K für das Basic-Programm bleibt, wobei die Möglichkeit be- 
steht, Basic zu verschieben, wenn das Programm entwickelt und verlängert wird. 
Mit dem folgenden Programm kann der Bit-Map-Bildschirm als Notizblock be- 
nutzt werden, wobei entweder die Cursortasten oder ein einfacher Algorithmus 
für das Zeichnen von Linien benutzt wird, um einen Entwurf auf dem Bildschirm 


zu erstellen. 


Hi-Res: Variablentabelle 


DX Abstand zwischen den Enden der Linie entlang der X-Achse 

DY Abstand zwischen den Enden der Linie entlang der Y-Achse 

FNPE Der Wert, der mit POKE in PP gesetzt werden muß, um Bildelement X, Y 
zu löschen 

FNPP Die Position des Bytes, in das Pixel X, Y fällt 

FNPV Der Wert, der mit POKE in PP gesetzt werden muß, um Pixel X, Y zu set- 
zen 

MO Der aktuelle Modus des Programms 
Bildschirmanfang 

SL Die Neigung der zu zeichnenden Linie 

x1,X2 X-Koordinaten der Enden der zu zeichnenden Linie 

Y1,Y2 Y-Koordinaten der Enden der zu zeichnenden Linie 

MODUL 3.4.1 


1802898 REMIS 
I8a10 REM HI-RES BILDSCHIRM INITIALIS. 
19828 REMKIKKOK KR ak aka aka aka ale aka ak aka 


18922 CLE&="": INPUT "BILDSCHIRM LOESCHE 
N CI/MIE"SCLE 

180925 REM POKE 44,64:POKE 43,1:POKE 1638 
4,8:CLR 

18927 DEF FNPPIK)I=SSCH32BKINTEY/SIHSKRINTTC 
KSI+LY AND 73 

18923 DEF FNPYCXK)=PEEKEFNPPCH>> OR (2tr(7 
-(X AND 799) 

18829 DEF FNPE<#)=PEEK<(FNPP<CHI> AND (255 
-2att7-£8 AND 79392) 

ig8e38 POKE 53272,<PEEK\53272))0R S:POKE 
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53265 ,PEEK (53265? OR32:5C0=8192 

18835 IF CL&="N" THEN 19858 

18849 FOR I=SC TO SC+7393:POKE I1,8:NEXT 
189536 FOR 1I=1824 TO ZO23:POKE I,6%#16+12: 
NEXT 

18868 MORCa>=2:MOAX1)=5:MOAC2)I=108 


Mit diesem Modul wird der Bildschirmspeicher für den Bit-Map-Modus konfigu- 
riert, werden einige nützliche Funktionen definiert und der hochauflösende Bild- 
schirm gelöscht. 


Kommentar 


Zeile 10025: Die POKE-Befehle in dieser REM-Anweisung sind zur Ausführung 
dieses Programms nicht erforderlich. Sie wurden aufgenommen, damit die erfor- 
derlichen Informationen zur Verschiebung von Basic vorhanden sind, falls das 
Programm so erweitert werden soll, daß es im Bildschirmspeicher über die 
Adresse 8192 hinausgeht. Wie bei dem Sprites-Programm müssen die POKE-Be- 
fehle in ein Ladeprogramm aufgenommen werden, das VOR dem Hauptpro- 
gramm ausgeführt wird. Für das hier angegebene Programm reicht der Speicher- 
platz von 6K bis zu der Adresse 8192 längstens aus- so daß es nicht einmal 
erforderlich ist, eine Grenze für den Anfang von Basic zu setzen. 


Zeilen 10027-10029: Die Benutzung dieser Funktionen wird in der Variablentabel- 
le angegeben. 


Zeile 10030: 53272 ist das Register, mit dem normalerweise gesteuert wird, an 
welcher Stelle der VIC Il nach Zeichendaten sucht. In diesem Fall legt es den An- 
fang des Bit-Map-Bildschirms fest. Wird hier mit dem POKE-Befehl 8 angegeben, 
so wird der Bildschirmanfang auf 8192 festgelegt. Wird 32 mit POKE in Adresse 
53265 gesetzt, so wird dadurch der Bit-Map-Modus festgelegt. 


Zeilen 10035-10040: Mit Zeile 10022 hatte der Benutzer die Möglichkeit, den Bild- 
schirm zu löschen. Wird das Programm während der Entwicklung gestoppt und 
werden RUN-RESTORE betätigt, so können Änderungen an dem Programm vor- 
genommen werden, ohne daß der Bildschirminhalt selbst betroffen ist. Wird das 
Programm erneut ausgeführt, so wird Zeit gespart, indem die 8000 Bytes nicht 
gelöscht werden müssen. 


Zeile 10050: Mit dieser Zeile wird der normale Bildschirmspeicherbereich ge- 


löscht, in dem nun die Farbdaten für jede der 1000 normalen Zeichenpositionen 
stehen. 
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Testen von Modul 3.4.1 


Bei der ersten Ausführung des Programms sollten auf dem Bildschirm sofort 
sinnlose Zeichen angezeigt werden. Sie werden nach und nach gelöscht, wobei 
auf dem Bildschirm noch immer farbige Quadrate stehen können, die den Zei- 
chenpositionen auf dem Bildschirm im Normalmodus entsprechen. Sie sollten 
dann ebenfalls langsam gelöscht werden und der Bildschirm sollte weiß sein. 
Nach Beendigung des Moduls werden die RUN- und RESTORE-Tasten betätigt, 
um zum Normalmodus zurückzukehren. 


MODUL 3.4.2 


11eaRm REMEICKAAKK AORRRR Ra aaa ak 
1181Ad REM ZEICHNEN 

11220 REMEIORSOIISOR aka 
110838 %=160:Y=96:MO=1:POKE 1924,1(PEEK«IO 
24 )AND248) OR <MOHxr2) 

11848 TT=PEEK<{FNPPCK)) 

11842 GET A$:IF A$<i>"" THEN 118584 

11044 POKE FNPP\XD,FNPVYCHI:EPOKE FNPP<®&D, 
FNPE<(=):G0OTO 11042 

1185a POKE FNPFC=D,TT 

i1a6s8 IF MO<S3 THEN X=%-1A$="W" AND x<319 
3+xAS="M AND x>0) 

11862 IF MO=3 THEN #=8-18x(A$="W" AND x 
s198)+1ax<cAs="M AND >19) 

1187B8 IF MO<3 THEN YeyY-(Aas="g" AND Ys191 
I+tAs$="D" AND Y>9) 

11972 IF MO=3 THEN Y=Y-10xcCAs="m" AND Y<S 
132)+10xKAS="D" AND Y>19) 

119875 IFA&="#"THEN MO=MO+1:MO=MO +4%CMO >3 
I:POKE1824,\PEEK «(1024 I ANDZ248 OR <MOK2) 
118838 IF MG=1 THEN POKE FNPP<C#>,FNPYCH) 
ı11a398 IF MO=@ THEN POKE FNPPiKX)I,FNPE<CK? 
11100 IF As="1" THEN Ki=K:Y1l=Y 

11110 IF AS="2" THEN K2aek:YasY 

11128 IF A$="L" THEN GOSUB 12098 

112089 GOTO 11948 

11399 GOTO 11499 
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Mit diesem Modul kann ein blinkendes Pixel über dem Bildschirm hin- und herbe- 
wegt werden, wobei einzelne Pixels angezeigt und gelöscht werden. 


Kommentar 


Zeile 11030: X und Y sind die Koordinaten des Pixels auf dem 300*200-Bild- 
schirm. Der blinkende Pixel-Cursor wird in die Mitte des Bildschirms gesetzt. In 
die erste Position im normalen Bildschirmspeicher wird mit POKE ein Wert ge- 
setzt, der einen Farbindikator des aktuellen Modus erzeugt (schwarz 0, rot 1, vio- 
lett 2, blau 3). Die Auswirkungen der verschiedenen Betriebsarten werden später 
erläutert. 


Zeile 11040: Der Status des Bildschirms in der Position, in der der Cursor aufblin- 
ken soll, wird ermittelt. 


Zeilen 11042-11050: Der Cursor blinkt immer wieder auf, bis eine Taste betätigt 
wird. 


Zeilen 11060-11072: Im Modus 3 wird durch Betätigung der Cursortaste das blin- 
kende Pixel zehn Stellen in der gewünschten Richtung (innerhalb der Bildschirm- 
grenzen) bewegt. Im Modus 0, 1 und 2 wird der Cursor immer nur um ein Leerzei- 
chen weiter bewegt. 


Zeile 11075: Mit den allein, d.h. ohne die SHIFT-Taste benutzten Funktionstasten 
von oben 

nach unten werden die Betriebsarten festgelegt. Wird der Modus geändert, so 
wird der Farbindikator geändert. 


Zeilen 11080-11090: Ist der Modus Null (schwarz), so wird das Pixel bei der Cur- 
sorposition gelöscht. Ist der Modus 1 (rot), so wird das Pixel ausgezeichnet. In 
den beiden restlichen Betriebsarten kann der Cursor langsam oder schnell hin- 
und herbewegt werden, ohne daß die Bildschirmanzeige davon betroffen ist. 


Zeilen 11100-11120: Diese Eingaben beziehen sich auf das nächste Modul. 
Testen von Modul 3.4.2 


Der kleine Cursor sollte auf dem Bildschirm hin- und herbewegt werden können, 
wobei Elemente gezeichnet oder gelöscht werden. 
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MODUL 3.4.3 


12888 
12010 
12020 
12025 
12438 
2-Y1) 
12832 
12035 
1294 
120959 
> 
12855 
3 
12069 


ml 222 22 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 5 
REM ZEICHNEN DER LINIE 
REMAKE K 
K=xlıYyYeYi 
DEH=SK2-K1+5GNIR2-H19:DY=Y2-Yi1+SGNIY 


IF ABSCDY>>ABS<CDXS> THEN 12288 
SL=ABS <DY/D3)>-9.5 

FOR I=1 TO ABS(D*) 

IF MODE=1 THEN POKE FNPP<X#3,FNPYVCH 
IF MODE=8 THEN POKE FNPP<XD3,FNPEIK 


IF SL>8 THEN Y=Y+SGNiDY):SL=-SL-1:G 


0TO 120868 


12874 
12108 
12128 
12209 
12218 
12220 
3 

122253 
> 

12234 


SL=SL+ABS(CDY/DX) 

K=8+5GNIDXI NEXT I 

RETURN 

SL=ABS<(DA/DY?-8.5 

FOR I=1 TO ABS(iDY) 

IF MODE=1 THEN POKE FNPPSKD,FNPYEH 


IF MODE=B THEN FCÜKE FNPP<#3,FNPE<KS 


IF SL>® THEN K=K+SGN(DXK)I:SL=SL-1:G 


0T0 12238 


12240 
12258 
123a& 


Mit diesem Modul können gerade Linien zwischen vom Benutzer definierten 
Punkten gezeichnet werden. Hier handelt es sich um eine Anwendung einer als 
Bresenham’s Algorithmus bekannten Methode. Eine Version dieser Methode 
wird häufig in den Basic-Programmen benutzt, die über Befehle für das Zeichnen 


SL=SL+ABS (DX/DY) 
Y=Y+SGN<(DY?:NEKT I 
RETURN 


von Linien verfügen. 
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Kommentar 


Zeile 12025: Die Werte X1 und Y1 wurden definiert, als der Benutzer 1 eingege- 
ben hat - dort wurden sie der X- bzw. Y-Position des Cursors gleichgesetzt. X2 
und Y2 wurden bei der Eingabe von 2 gesetzt. Die Linie wird von X1, Y1 gezeich- 
net. 


Zeile 12030: DX und DY wurden gleich der Entfernung zwischen X1 und X2 bzw. 
Y1 und Y2 plus Eins gesetzt. Bei der SGN-Funktion spielt es keine Rolle, ob die 
Distanz positiv oder negativ ist (ist sie negativ, so wird minus 1 und nicht 1 hinzu- 
gefügt). 


Zeile 12032: Der Algorithmus für das Zeichnen von Linien benutzt die größere der 
beiden Differenzen als Basis für die Berechnungen, so daß mit zwei separaten 
Routinen schneller gearbeitet wird. 


Zeile 12035: SL ist die Neigung bzw. das Verhältnis zwischen DX und DY minus 
0,5. 


Zeile 12040: Die Schleife ist so lang wie die Differenz entlang der X-Koordinate. 


Zeilen 12050-12055: Je nachdem, ob mit Modus 0 oder 1 gearbeitet wird, wird ein 
einzelner Punkt auf der Linie gelöscht oder gezeichnet. Im Modus 2 oder 3 ge- 
schieht nichts. 


Zeile 12060: Je nach Verhältnis zwischen DX und DY kann nun mit SL angegeben 
werden, daß der nächste Punkt entlang der Y-Achse nach oben oder unten 
geschoben werden soll. In diesem Fall wird die Y-Position geändert und SL um 
Eins gekürzt. 


Zeile 12070: Der Neigungswert wird jedesmal zu SL hinzugefügt, nachdem ein 
Punkt ausgedruckt wurde. 


Zeile 12100: Die X-Position wird bei jeder Wiederholung der Schleife inkremen- 
tiert. Auch hier berücksichtigt die SGN-Funktion Linien, die auf der Achse zu- 
rückgehen. 


Zeilen 12200-12250: Genau dieselbe Routine für die Fälle, in denen DY größer ist 
als DX. 
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Testen von Modul 3.4.3 


Hier sollte der Benutzer in der Lage sein, einen Anfangs- und Endpunkt für eine 
Linie (1 und 2) anzugeben, die Linie zu zeichnen oder eine bestehende Linie zu 
löschen, je nachdem, ob Modus 1 oder O gesetzt ist. 


Zusammenfassung 


Dieses Programm soll nur das Interesse an den weiteren Möglichkeiten des Bit- 
Map-Modus wecken. Sollen die Bit-Map-Grafiken voll eingesetzt werden, so muß 
sorgfältig überlegt werden, welches Ziel erreicht werden soll. Außerdem sind 
häufig komplexe mathematische Vorgänge erforderlich, um dieses Ziel zu errei- 
chen. Möchte der Benutzer weiter in die Technik des Bit-Mapping einsteigen, so 
wird diese Aufgabe durch die hier angegebenen Techniken und die Funktionen 
zur Auffindung der einzelnen Pixels wesentlich einfacher gestaltet. 


Ein Schritt weiter 


1. Warum soll nicht eine Funktion hinzugefügt werden, mit der ein Bildschirm mit 
Grafiken auf Band gespeichert werden kann - hierzu ist ein relativ langes Band er- 
forderlich, die Routine ist jedoch recht einfach. 

2. Die Bücher über Computergrafiken enthalten eine Reihe von Algorithmen, mit 
denen Kreise und Bögen gezeichnet werden können. Warum soll nicht an das 
Ende des Programms ein entsprechendes Modul hinzugefügt werden - der 
Hauptnachteil ist allerdings eine langsamere Ausführung. 
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KAPITEL 4 


DER C64 ALS SEKRETÄRIN 


Früher oder später stellen die meisten Besitzer von Homecomputern fest, daß 
sich ihr neuer digitaler Freund besonders bewährt, wenn er Informationen spei- 
chert, diese verarbeitet und sie auf so vielfältige Weise darstellt, daß dies äußerst 
arbeitsaufwendig wäre, müßte es manuell geschehen. In diesem Augenblick fan- 
gen sie damit an, einfache Programme zu schreiben, mit denen die Namen ihrer 
Freunde und die Adressen gespeichert werden, oder mit denen beispielsweise 
eine Plattensammlung festgehalten wird. Schließlich haben sie etwa ein halbes 
Dutzend Programme, jedes für einen bestimmten Zweck, und dennoch werden 
für jedes Programm in etwa dieselben Methoden benutzt. 

In diesem Kapitel wird ein Abschnitt mit etwas umfangreicheren Programmen be- 
gonnen, in dem überprüft wird, wie ein einzelnes Programm geschrieben werden 
kann, um den verschiedensten Ablageanforderungen gerecht zu werden, ohne 
daß das Programm ständig neu geschrieben werden muß, wenn eine neue An- 
wendung benutzt werden soll. 


4.1 UNIFILE 


Das erste Programm trägt den Namen Unifile. In der hier vorgestellten Form kann 
es bis zu 500 Einträge speichern, ermöglicht dem Benutzer, diese Einträge nach 
bestimmten Elementen zu durchsuchen, die Einträge zu ändern und zu löschen. 
Abgesehen von dem breiten Anwendunggsfeld eines derartigen Programms hoffe 
ich, daß es dem Benutzer nur durch die reine Eingabe und die Darlegung der be- 
nutzten Methoden eine Vielzahl von Ideen für weitere Anwendungen vermittelt. 


Unifile: Variablentabelle 


IN Flag-Indikator, mit dem angegeben wird, ob das Programm initialisiert 
wurde 

A% (499,X-1) Zeichnet die Länge einzelner Elemente in jedem Eintrag auf Haupt-Datei- 
matrix 

A$(499) Enthält die Namen von Elementtypen für jeden Eintrag 

B$(X-1) Flag-Indikator, mit dem festgelegt wird, ob eine Benutzersuche erfolg- 

FF reich ausgeführt wurde 

IT Anzahl von bis jetzt in der Datei stehenden Einträgen 

PO Wird in der Binärsuche dazu benutzt, die Anzahl erforderlicher Suchmu- 


ster anzugeben 
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PP 


R$ 

s1 

ss 

T1$ 
TI% (20) 


x 
zZ 


MODUL 4.1.1 


Pointer zur Anfangsposition des aktuellen auszudruckenden Elements 
eines Eintrages 

Separator zur Benutzung bei der Sicherung von Daten auf Band 
Temporärer Such-Pointer für das Suchmodul des Benutzers 
Hauptsuch-Pointer in einem binären Suchmodul 

Temporäre Speicherfolge, mit der der neue Eintrag erstellt wird 
Temporärer Speicher für die Länge von Elementen, die in dem neuen Ein- 
trag erstellt werden 

Enthält die Anzahl von Elementen, die für jede Datei angegeben werden 
Indikator für die Nummer der Programmfunktion, die aus dem Hauptmenü 
aufgerufen wird 


112090 REMEIKHODEOOR RK RR 

11018 REM MEZNUE 

11220 REMIS KR 

11839 POKE 53281,7:PRINT "IBRSBBBRBBBIFI 
[REYERS EINJITGRUENIUNIFILE" 

11048 FRINT "MSIBLAUJIMOEGLICHE BEFEHLE:" 


11852 PRINT "MILROT]I 1?DATENE INGABE " 
11es52 FRINT "A 23SUCHEN/ANZE IGEM/RENDE 


RN" 


iwara PRINT "A S>LADEN/SPE ICHERN" 
11asa FRINT "A 4>NEUES FILE ANLEGEN" 
11898 PRINT "3 S>BEENDEN" 

111809 INPUT "MIELAUIBEFEHL:"}FZ:PRINT "3" 


= 
r 


il1la IF Z>3 OR IN=1I THEN 11148 - 
t11E0 PRINT " EDeDDeieeNCCH KEI 
N FILE VORHANDEN. ":FOR I=1 TO 1898:NEXT 
11139 GOTT 11009 


rı1aa OH 


zZ GOSUB 1sa9d,1700d,188a08, 12aad 


‚111598:G0T0 118096 
11159 PRINT " MEIIiiREVERS E 
INIJTSCHWAÄRZ JUNIFILE BEENDET":=END 


Dieses Modul umfaßt sämtliche Funktionen, die mit dem Programm zur Verfü- 
gung stehen. Außerdem gibt es dem Benutzer die Möglichkeit, zwischen den ein- 
zelnen Funktionen zu wählen. Als Faustregel gilt, daß jedes komplexe Programm, 
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das nicht mit einem klar definierten Menü der einzelnen Programmfunktionen be- 
ginnt, kein gutes Programm ist. Stimmen Sie hiermit auch jetzt noch nicht über- 
ein, so werden Sie dies spätestens dann tun, wenn Sie zu einem komplexen Pro- 
gramm zurückkehren müssen, das einige Wochen lang nicht benutzt wurde, und 
wenn Sie eine halbe Stunde brauchen, um durch die Programmauflistung zu ge- 
hen und sich daran zu erinnern, was das Programm wie tut. 


Kommentar 


Zeile 11030: Ein typisches Beispiel für die Benutzung der flexiblen Cursor-Kon- 
trollbefehle des Commodore. Die Zeichenfolge löscht den Bildschirm, bewegt 
den Cursor um eine Stelle nach unten in die Mitte der Zeile, setzt die RVS ON 
-Eigenschaft und druckt grün aus. 


Zeilen 11110-111390: Kein Programm kann erfolgreich ausgeführt werden, wenn 
die benutzte Matrix nicht erstellt wurde. In diesem Programm ist die Variable IN 
auf 1 gesetzt, wenn dies geschieht. Ist IN nicht gleich 1, so können aus dem Menü 
nur die Initialisierung (Erstellen von Matrizes) und der Programmstopp benutzt 
werden. 


Zeile 11140: Für die Benutzer, für die dieser Befehl neu ist, bieten die Befehle 
ON...GOSUB und ON...GOTO einfache Möglichkeiten, die Listen mit den schwie- 
rigen IF...THEN...GOSUB (GOTO) Anweisungen zu beschränken. Der Befehl 
wählt den Bestimmungsort in der Liste, der mit Zangegeben wird. 


In diesem Stadium kann nur getestet werden, ob das Modul eine sauber angeord- 
nete Menüseite darstellt und eine Eingabe akzeptiert. Die einzige Eingabe, die zu 
keinem Fehlerbericht führt, ist die Eingabe 5 - Programmstopp. 


MODUL 4.1.2 


1208028 REMEFDSOIRARARARR RR 
122108 REM STRUKTUR DES FILES 
jzmza REMIS 
120358 CLR:DIM A&S«439):FRINT "uBBRPPRRBEI 
[REYERS EINIIROTIFILE STRUKTUR": IN=1: 
RS=CHRE$(13) 
120935 INPUT "BISCHWÄARZ ILADEN SIE YON KRAS 
SETTE £J-N>:"7QS$S:IF Q$="J" THEN 11000 
12a4E INPUT "MEALEBELAUIWIEVIELE FELDER PRG 
DATENSATZ=E"FR:DIM BEIS-13,AR0439,%-1) 
12052 PRINT "3"::FOR I=2 TO #-1:PRINT "LT 
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PURPUR INAME YON FELD"?STRE(Ir1)7":"Z:1INP 
UTOE 
IRRASE BSCII=SQS:NEFT I:GOTO 11aga 


Dieses Modul führt die wichtige Funktion des Erstellens der Felder aus, die für die 
Speicherung der Programmdaten benutzt werden. Erst wenn dieses Modul auf- 
gerufen wurde, kann das Programm benutzt werden. Nachdem Daten eingege- 
ben wurden, führt das erneute Aufrufen des Moduls zu einem Verlust sämtlicher 
Daten - der Speicher wird für die Aufnahme einer neuen Datengruppe gelöscht. 
Die Benutzung der Hauptvariablen wird in der Variablentabelle und in den folgen- 
den Kommentaren zu dem Programm erläutert. 


Kommentar 


Zeile 12030: Bevor ein Feld dimensioniert wird, muß der Speicher unbedingt ge- 
löscht werden. Geschieht dies nicht, so wird die Fehlermeldung REDIMMED AR- 
RAY angezeigt. 


Zeile 12040: Unifile schreibt dem Benutzer nicht vor, wie viele Elemente ein typi- 
scher Eintrag enthalten muß. Dies kann der Benutzer selbst festlegen. Nachdem 
dies geschehen ist, konfiguriert das Programm das Zeigerfeld AX und das Feld 
für den Elementtitel B$ dementsprechend. 


Zeilen 12050-12060: Nachdem die Anzahl von Elementen pro Eintrag angegeben 
wurde, werden die Elemente benannt, z.B. Name, Adresse, Telefonnummer. Da 
der Speicher gelöscht wurde, kann das Modul nicht zu dem Menü zurückkehren. 
Hier muß die Zeile angegeben werden, in die mit GOTO gegangen werden soll. 


Testen von Modul 4.1.2 


Beim Aufruf des Moduls wird der Benutzer gebeten, die Anzahl von Elementen 
pro Datei anzugeben und den Elementen Namen zuzuweisen. 


MODUL 4.1.3 


13980 REM 
13810 REM EINGABE NEUER PUNKTE 

13029 REM aaa 
12€39 T1&="":PRINT "IEBBRBBPBRBRBIEE TE 
ERS EINITROTINEUE FELDER 

15042 FRINT "EBRBBERERERRREREETGRLEN]" 
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IT:" FELDER EIS JETZT." 

15852 PRINT "MIBLAUIMOEGLICHE BEFEHLE:" 
13068 PRINT "SISCHWARZI>LPURPURIGEBEN SI 
E DAS GEWENSCHTEN FELE EIN" 

13878 PRINT "ISCHWARZ I >IPURPURIJODER 'ZZZ 
' UM INS MENLUE ZURUECKZUKEHREN” 

13988 FOR I=d TO »-1:FRINT B&S(DDz":"z:IN 
PUT GS:IF Q$="ZZZ2" THEN RETURN 

138938 IFLEN<TISI+LEN<(AFI<=25S5THEN 13118 
1s1og PRINT "E[ROTIEINGABE ZU LANG. ":FÜR 
J=1 TO S908:NEXT J:RETURN 

153118 T1$=T1$+0$:TIASI>=SLENITISI:NEKT I: 
PRINT "ESCHWARZ IBITTE WARTEN 1!" 

15128 GOSUBI14A99:GOSUB 1IAAA:GOTO 130804 


Dieses Modul akzeptiert die Eingabe der vom Benutzer angegebenen Elemente 
und verwandelt sie in einen Eintrag für die Hauptdatei. 


Kommentar 


Zeile 13080: Mit der Variablen X wird die Anzahl von Wiederholungen festgelegt. 
Das Programm fordert den Benutzer auf, jedes der angegebenen Elemente ein- 
zugeben. 


Zeilen 13090-13100: Einzelne Einträge können eine maximale Länge von 255 Zei- 
chen aufweisen - die Maximallänge einer einzelnen Zeichenfolge bei dem Com- 
modore 64. Mit diesen Zeilen wird geprüft, ob dieser Grenzwert nicht überschrit- 
ten wird. 


Zeile 13110: Das eingegebene Element wird zu der temporären Speicherfolge 
T1$ hinzugefugt. Die Länge des bis jetzt eingegebenen Eintrags wird in TI% auf- 
gezeichnet. Hier wird darauf hingewiesen, daß TI% in dem Initialisierungsmodul 
nicht deklariert wurde. Durch Angabe dieser Speicherfolge im Laufe des Pro- 
gramms wird sie automatisch auf zehn Elemente (0 bis 9) dimensioniert. Werden 
Einträge mit mehr als zehn Elementen gewünscht, so muß eine größere TI in 
dem Initialisierungsmodul deklariert werden. 


Testen von Modul 4.1.3 


Werden in diesem Stadium temporäre RETURN-Befehle in den Zeilen 14000 und 
15000 eingegeben, so sollte dieses Modul aufgerufen werden können. Der Be- 
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nutzer wird aufgefordert, Elemente unter den angegebenen Namen einzugeben. 
Bis jetzt ist noch nicht vorgesehen, diese Elemente in die Datei einzugeben. 


MODUL 4.1.4 


142809 REMEECKFROOOK AHORN 
14812 REM SUCHROUTINE 

14820 REMKKERKKKFERKHHR HE KK KK KK 
14932 IF IT=8 THEN S5=0:RETURN 

149448 PO=IMNT(LOGSITI/LOG(232:55=2tP0-1 
14058 FÜR I=PO TO 8 STEP-1 

140868 IF AFIS5SI<T1$ THEN SS=SS+2tIl 
149878 IF A$S(55)>T1$ THEN 55=55-2tl 
i4B80 IF 55<X8 THEN 55=8 

1499@ IF SS>IT-1 THEN 55=1IT-1 

14189 NEXT I:IF AS(SSI<TIS THEN 55=SS+1 
14110 RETURN 


Von sämtlichen Moduln in diesem Programm sieht dieses wahrscheinlich auf den 
ersten Blick am schwierigsten aus. In Wirklichkeit ist es sehr einfach, zuerst müs- 
sen jedoch die grundlegenden Prinzipien verstanden werden, die hinter einer 
Suchmethode liegen, die als binäre Suche bezeichnet wird. Mit ihr wird der Ar- 
beitsaufwand drastisch verkürzt, der erforderlich ist, um die richtige Stelle für ein 
neues Element in einer geordneten Datenliste zu finden. 


Hier soll von folgendem Beispiel ausgegangen werden: 

Es wurde eine Datei mit 2000 Namen in alphabetischer Reihenfolge erstellt. Nun 
muß ein neuer Name eingefügt werden, dessen rechtmäßiger Platz bei Position 
1731 liegt, obwohl dies erst noch festgelegt werden muß. Die Suchroutine über- 
prüft also zuerst den ersten Namen in der Datei, entscheidet, daß der neue Na- 
men nach diesem ersten Namen angegeben werden muß und geht zu dem zwei- 
ten Namen. Nachdem 1732 Namen geprüft wurden, hat die Suchroutine einen 
Namen gefunden, vor dem der neue Namen stehen soll. Nun weiß sie, daß sie den 
richtigen Platz für die Einfügung des neuen Namens gefunden hat. Hier handelt 
es sich um ein sehr direktes Verfahren, das einfach zu programmieren ist. Dies 
soll jedoch nun mit folgendem Verfahren verglichen werden: 

Das Suchverfahren beginnt mit der Überprüfung des Namens in Position 1024 der 
Datei, da 1024 die größte Zweierpotenz ist, die in die Gesamtanzahl von Namen in 
der Datei gesetzt werden kann. Der Name bei 1024 ist alphabetisch kleiner als der 
neue Name. Deshalb fügt die Suchroutine 1024/2 zu der ursprünglichen Adresse 
1024 hinzu und geht zu dem Namen mit der Nummer 1536. Dieser Name ist noch 
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immer kleiner als der neue Name, so daß 1024/4 zu 1536 hinzugefügt wird, was 
1792 ergibt. Nun geschieht etwas anderes - der Name mit der Nummer 1792 ist 
alphabetisch größer als der neue Name. Dieses Problem wird gelöst, indem 1204/ 
8 subtrahiert wird, was zu einem Wert 1664 führt. Die Suchroutine addiert oder 
subtrahiert weiterhin abnehmende Zweierpotenz, um ein Suchmuster zu erstel- 
len, das folgendermaßen aussieht: 


1644 (danach wird 64 addiert) 
1728 (danach wird 32 addiert) 
1760 (danach wird 16 subtrahiert) 
1744 (danach wird 8 subtrahiert) 
1736 (danach wird 4 subtrahiert) 
1732 (danach wird 2 subtrahiert) 
1730 (danach wird 1 addiert) 


Die Anzahl von Vergleichen, die erforderlich sind, um die richtige Stelle in der Da- 
tei zu finden, wurde von 1732 auf 10 gekürzt. Dies ist ein eindeutiger Beweis für 
die Leistungsfähigkeit der binären Suche. 


Zeile 14030: Stehen in der Datei noch keine Elemente, so muß die richtige Posi- 
tion nicht berechnet werden. 


Zeile 14040: Mit der LOG-Funktion wird die höchste Zweierpotenz ermittelt, die 
der aktuellen Anzahl von Elementen entspricht. 


Zeilen 14050-14100: Der Binärsprung wird ausgeführ wobei geprüft wird, ob die 
Suche nicht über das Ende der Datei hinausgeht. Ein letzter Vergleich wird vorge- 
nommen, wenn die Schleife beendet ist und die richtige Position ermittelt und in 
der Variablen SS gespeichert wurde. 


Testen von Modul 4.1.4 


Dieses Modul kann erst vollständig getestet werden, nachdem das nächste Mo- 
dul eingegeben wurde. Allerdings kann geprüft werden, ob die Syntax korrekt ist, 
indem einfach das Einfüge-Modul aufgerufen wird, aus dem dieses Modul aufge- 
rufen wird. 


MODUL 4.1.5 


12099 REMEEKASIO IK RR 
150818 REM EINFUEGEN 

15220 REM AR AK 
ı1Sasa IF IT=& THEN GOTO 15060 
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ı15a420 FOR 1=1IT TO SS+1 STEP -I:A$cI)=Nn$t 
1-13 

15985An FOR I=B TO %-1:A#X1,J)=AZCI-1,J3:N 
EXT J,1I 

15BE6A AS(SSI=-T1S:FOR I=8 TO %-1:A%4155,1) 
=TIAXID:NEXT:IT=SIT+1:RETURN 


Nachdem die richtige Position festgelegt wurde, verschiebt dieses Modul sämtli- 
che Einträge um eine Stelle weiter in der Datei, zusammen mit den zugeordneten 
Pointern in A%. Der neue Eintrag wird in Position SS der Datei gesetzt. Die Poin- 
ter, die die Länge der einzelnen Elemente angeben, werden in dieselbe Position 
in AY% gesetzt. 


Testen der Moduln 4.1.4 und 4.1.5 


Nun sollte der Benutzer in der Lage sein, Einträge in die Datei einzugeben, die in 
alphabetischer Reihenfolge angeordnet werden. Um dies zu prüfen, muß das 
Programm gestoppt und der Inhalt von A$(0), A$(1) usw. im direkten Modus aus- 
gedruckt werden. Außerdem muß geprüft werden, ob die in derselben Zeile von 
A% gespeicherten Zeiger auch wirklich auf das letzte Zeichen jedes Elements in 
dem Eintrag zeigen. 


MODUL 4.1.6 


18822 REMESORDEAGIO Ra 3k ok 
15@a18 REM LADEN/SPE ICHERN 

18228 REMOTE 
18838 PRINT "SIBLAUIKASSETTE EINLEGEN, D 

ANN [REYERS EINJRETURNRIREVERS AUSI--" 
13849 INPUT "MOTOR HAELT AUTOMATISCH AN: 
":QS:POKE 1932,7:POKE 1,39 

18858 PRINT "MIROTIMOEGLICHE BEFEHLE:":P 

RINT "MIGRUEN] 1>DATEN SPEICHERN 

18955 PRINT "2Z)3ERTEN LADEN" 

IScgE0 INPUT "MIBLAUIBEFEHL: "7Q:ON GC GOTO 
18970, 18128:RETURN 

12072 POKE 1,7:FOR I=1 TO 2DE8:NEKT 

182898 OPEN 1,1,1,"UNIFILE":FRINT#1,IT,RS$S 
‚f 

15832 FOR I=8 TO IT-1:PRINT#1,AECII:FOR 

J=za TO 8-1:PRINT#1,AZALI,IIENERT J,1 
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12189 FOR I=8 TO S-1:PRINTHL,BECII:ENEXT 
1s1la CLOSE1:RETURN 

ısi2a OPEN 1,1,8,"UNIFILE":INPUT#1,IT,#: 
DIM B$(X-193,9%(9333,%-19 

18138 FOR I=9 TO IT-1 

18132 GET#H1,T$:!IF T$S>CHRS(13) THEN ASCI 
ISAFCTII+TSE!GOTO 18132 

18134 FÜR I=9 TO #-1:INPUT#1,AZXI,JII:NER 
Tl 

12142 FOR I=8 TO #=-1:1INPUT#1,BESXII:NEST 
18158 CLOSE1:RETURN 


Nachdem nun einige Daten in die Datei eingegeben werden können, müssen als 
erstes einige Daten auf Band gespeichert werden. Müssen neue Moduln einge- 
geben oder Zeilen geändert werden, um Fehler zu korrigieren, so müssen dann 
nicht sämtliche Daten erneut eingegeben werden. 


Kommentar 


Zeile 18040: Nachdem das Band eingelegt wurde, wird es als erstes in den RE- 
CORD- oder PLAY-Modus versetzt und genau bis zu der Stelle vorgespult, die 
von dem Bandzähler angegeben wird. Ist diese Stelle erreicht, so wird der Motor 
des Kassettenrecorders mit Hilfe dieser beiden POKE-Befehle bei Betätigung der 
RETURN-Taste ausgeschaltet. 


Zeile 18070: Der Motor des Recorders wird wieder eingeschaltet, bevor Daten 
aufgezeichnet und zusätzlich zu dem automatisch vom Betriebssystem hinzuge- 
fügten Vorsatz Anfangsinformationen ausgedruckt werden. Dadurch wird ge- 
währleistet, daß keine Aufzeichnung auf dem nichtmagnetischen Bandvorspann 
vorgenommen wird, wenn am Bandanfang begonnen wird. 


Zeilen 18120-18140: Nun werden Daten, die in die Datei gedruckt wurden, wieder 
aufgerufen. Da die Zeichenfolgen in der Hauptdatei eine Länge von mehr als 80 
Zeichen aufweisen können, kann der INPUT-Befehl nicht benutzt werden. Statt 
dessen wird jedes Zeichen der Zeichenfolgen in der Hauptdatei separat mit GET 
geholt. Jeder Eintrag wird als vollständig betrachtet, wenn vom Band ein Zeilen- 
schaltungs-Zeichen geholt wird. 


Testen von Modul 4.1.6 


Bei diesem Modul wird einfach getestet, ob Daten in das Programm eingegeben, 
auf Band gespeichert und dann erneut geladen werden können. 
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MODUL 4.1.7 


17068 REMHHRKKAHREH HK HR KK 
IrBlea REM SUCHEN 

17a28 REMOTE 
17838 S1=98:FF=d:FRINT "RR bbBbBBeIu 
IROTITREYERS EINISERROH" 

read PRINT "BIELAUIMOEGLICHE BEFEHLE:" 
1752 PRINT "9 TSCHWARZ I>TGRUENJE INGABE 
EINES SUCHSTRINGS FUER NORMALE SUCHE 
1725& PRINT " [SCHWÄRZIFIGRUENISETZEN SI 
E 'III' DAVOR FUER INITIALSUCHE" 

17878 PRINT " [SCHWARZ IFIGRUENISETZEN SI 
E '5S5' DAVOR FUER SPEZIELLE SUCHE" 
1raga PRIMT " [SCHWARZ I FTGRUENJIRETURNIRE 
VERS AUSI FUER DAS ERSTE FELD DES FILES 
17890 PRINT "MBIFURPUR]JaSRsS@020200800808 
LEITET TI T ITETESTITITTTT De 


1710@ T13="": INPUT"ODIBLAUISUCHBEFEHL: ": 

T1# 

17110 IF LEFT$(CTI#,3)<>"III" THEN 17140 
17128 TI$S=RIGHTSCTIS,LEN(TI$)-3):G0SUB 1 

40@9:S1=55:IF SI>IT-1 THEN RETURN 

{7130 GOTO 17240 

17140 IF LEFT$(T1$,3)°>"SS5" THEN 17198 
17158 FF=@:TI$=RIGHT$CTI$,LENCTIS)-3):FO 

R I=&1 TO IT-1:FOR J=s1 TO LENCA$CI)) 
17168 IF MIDSCASCI),J,LEN(TIS))=T1$ THEN 
FF=1:81=1:J=LEN(ASCIIISISIT-1 

17178 NEXT J,I:IF FF=1 THEN T1$="835"+T1 

$:60T0 17248 

17188 RETURN 

17190 IF Ti$="" THEN 17248 

17288 FF=8:FOR I=81 TO IT-1:PP=@:FOR J=@ 
TO x-1 

17210 IF MIDS(ASCI),FP+L,AKCI,JI-PP)=TI$ 
THEN FF=1:81=1:J=K-1:1=1T-1 

17228 PP=AXCI,II:NEXT JINEXT ISIF FF=1 T 
HEN 17240 

1723@ RETURN 
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17248 IF SI>IT-1 THEN S1=IT-1 

1725@ IF IT=®8 THEN RETURN 

172E68@ IF SI<@ THEN S1=8 

17278 PRINT "UMLROTIDATENSATZ";S1+1r":-4 
":PF=8 

17280 FOR I=@ TO %-1:PRINT"LGRUEN]"BECI 
3": [BLAUT"SMIDSCASCSL),FP+1,AKCSL,II-PP 
> 

17290 PP=AMtS1,I2:NEXT I:S1=S1+1:PRINT " 
17392 FRINT "MOEGLICHE [REVERS EINILROT] 
SUCHLREVERS AUSJLBLAUIBEFEHLE: " 

17318 PRINT "M [SCHWARZ 1? LFURPURIJLREVERS 
EINIRETURNLREVERS AUS] UM ZUM NAECHSTEN 
FELD) UEBERZU- GEHEN 

17320 PRINT " [SCHWARZ I>LPURPUR]'AAA' FU 

ER AENDERUNG 

1733 PRINT " [SCHWARZ I>LPURPUR]'CCC' UM 
DIE SUCHE FORTZUFUEHREN 

17348 PRINT " [SCHWARZ I>LPURPUR]'#' + NU 

MMER UM DEN ZAEHLER ZU ERHOE- HE 

N 

1735@ PRINT " [SCHWARZI>LPURPUR]'ZZZ' UM 
DIE FUNKTION ABZUBRECHEN 

17364 F&="": INPUT "MIBLAUIBEFEHL:":P$ 
17378 IF P$="CCC" THEN 17110 

173890 IF F#="" THEN 17240 

17398 IF P#="AAA" THEN GOSUB 15099:G0T0 
17248 

174080 IF P#="222" THEN RETURN 

1741A IF LEFTS(P$,1)="#" THEN S1=S1+HVAL« 

MIDS(P$,2))-1:G0T0 17240 

17428 S1=S1-1:60T0 17240 


Nachdem die Daten in den C64 gesetzt wurden, möchte man sie wieder aufrufen. 
Genau dies ist die Aufgabe dieses Moduls, d.h. die Rückübertragung von Infor- 
mationen, die auf verschiedene Art und Weise gespeichert wurden, vom das Ab- 


lagesystem besonders nützlich zu gestalten. 
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Kommentar 


Zeilen 17110-17130: Stehen vor dem zu suchenden Element die Buchstaben Ill, 
so wird das binäre Suchmodul aufgerufen, um einen Eintrag zu suchen, der mit 
den angegebenen Buchstaben beginnt, oder den Eintrag, der diesem Eintrag am 
nächsten kommt, kein entsprechender Eintrag gefunden wird. Hier handelt es 
sich nicht unbedingt um das erste Element in der Datei, das der Bedingung ge- 
recht wird. Wird die ursprüngliche Suchfunktion dazu benutzt, beispielsweise 
den ersten mit L beginnenden Eintrag zu suchen, so erhält man einen Eintrag, der 
mit L beginnt und kann dann zurückblättern, um zu sehen, ob es sich um den er- 
sten Eintrag handelt. Durch IIILA kommt man näher, während IIILAAAA die Lö- 
sung bringt, wenn keine äußerst ungewöhnliche Namen gespeichert wurden. 


Zeilen 17140-17180: Steht vor dem zu suchenden Element SSS, so wird die gan- 
ze Datei nach dieser Zeichenkombination durchsucht - hier braucht es sich nicht 
um ein ganzes Element zu handeln. Durch Angabe von SSSLO würden sämtliche 
Einträge gefunden, die London, Lotte oder Hallo enthalten. Diese Suchmethode 
ist selbstverständlich langsamer als die anderen. 


Zeile 17190: Wurde die RETURN-Taste ohne eine Eingabe betätigt, so wird das 
erste Element in der Datei angezeigt. 


Zeilen 17200-17230: Jede andere Eingabe wird als ein vollständiges Element be- 
trachtet, nach dem gesucht werden muß. Nur die Einträge, die ein Element in 
genau dieser Form enthalten, werden zurückgegeben. In dieser Routine muß be- 
achtet werden, wie das Pointer-Feld A%, die die Position des letzten Zeichens 
jedes Elements in einem Eintrag angibt, zur Ausgabe von Elementen aus dem Ein- 
trag benutzt wird, obwohl keine sichtbare Marke für die Elemente vorhanden ist, 
wenn ein Eintrag im direkten Modus ausgedruckt wird. 


Zeilen 17270-17290: Der Eintrag, den das Suchmodul gefunden hat, wird auf dem 
Bildschirm ausgedruckt. 


Zeilen 17300-17420: Nachdem ein Eintrag angezeigt wurde, bietet das Programm 
nun die Möglichkeit, den nächsten Eintrag anzuzeigen, den Eintrag zu ändern, mit 
der angegebenen Suche fortzufahren, durch Eingabe von NN zu einem anderen 
Eintrag zu gehen, wobei NN eine positive oder negative Zahl darstellt, um die in 
der Datei vor- oder zurückgegangen werden muß, oder zu dem Hauptmenü zu- 
rückzukehren. Wird keine erkennbare Eingabe vorgenommen, so wird derselbe 
Eintrag erneut angezeigt. 
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Testen von Modul 4.1.7 


Nun sollte der Benutzer in der Lage sein, beliebige gespeicherte Daten anzuzei- 
gen und die Daten mit den beschriebenen Suchmethoden zu durchsuchen. Bis 
jetzt können noch keine Einträge geändert werden. 


MODUL 4.1.8 


189902 REMBICHSRSORKEOIO ka k 
i6sAIB REM EINGABE AENDERN 

18022 REMAKE ka ak 
160838 51=51-1:T1$="" 

18a4E PP=R:FÜOR I=9 TO =-1:PRINT "JBLROT]I 
DATENSATZ "S1l+17":-” 

15850 PRINT"IGRUEN]I"FBECIIF":LBLAUI"FMID 
BIASBKLSII,PF+1,AAXS1,I>-PP)I 

ISBE2@ PRINT "Sie BIEIE 
[ROTIITREVERS EINIAMEND" 
188720 PRINT "SIRBLAUIMOEEGLICHE BEFEHLE:" 
isaSa PRINT "WM [SCHWARZ IFTGRUENITREVERS 
EINJRETURNIREVERS AUSJ LAESST DEN DATENS 
ATZ UNGEREN- DERT" 

1EB3E2 PRINT " TSCHWARZIFTGRUENIGEBEN SIE 
EiHM MEUES FELD EIN UM " 

16835 FRINT " EIM ANDERES ZU ERSETZEN" 
1619808 PRINT " [SCHWARZI>LCGRUEN]I'DDD' LOE 

SCHT EINEN GANZEN EIINTRAG" 

16118 FRINT " [SCHWARZI>TGRUEN]J'ZZZ' LAE 
S5T DEN DATENSATZ UNGERENDERT" 

16129 Q$="": INPUT "WIRLAUIBEFEHL:"7Q&$ 
1130 IF Q&="ZZZ2" THEN RETURN 

16148 IF Q#$="" THEN Q&=MIDSE(AS(S1),PP+1l, 
AAXS1L,ID-PFN 

18158 IFQ$="DDO"THEN GCOSUE 16184@:RETUÜRN 
161608 PP=A=XS1,12:T1$=-T1F+HQE:TIHTIISLENG 

TIEI:NEX&T I:GOSUBE 16184:G0SLUB 14a 
IE17@ 51=-55:505UB 1S5AAG:RETURN 

ıislea FOR J=S1 TG IT-1:A$CTI=A$CJ+1):FOR 
K=sE TO K-1:RAKCT,KISAHCIFL,KITNEKT K,J 
161924 IT=IT-1:RETURN 
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Mit diesem Modul sollen Änderungen an Elementen in Einträgen vorgenommen 
werden, die schon gespeichert wurden, ohne daß der ganze Eintrag neu eingege- 
ben zu werden braucht. Außerdem sollen Elemente oder ganze Einträge gelöscht 
werden können. 


Kommentar 


Zeile 16140: Das Modul arbeitet wie das Haupteingabemodul. Wird jedoch die 
RETURN-Taste betätigt, so wird das eingegebene Element als das aktuelle Ele- 
ment auf dem Bildschirm definiert. 


Zeile 16180: Mit dieser Routine werden alle folgenden Einträge in der Datei um 
eine Stelle nach unten bewegt, wobei der aktuelle Eintrag gelöscht wird. 


Testen von Modul 4.1.8 


Nun sollte der Benutzer in der Lage sein, Elemente in einem Eintrag zu ändern, 
der in dem Suchmodul steht, oder den ganzen Eintrag zu löschen. Wird dieses 
Modul richtig ausgeführt, so ist das Programm einsatzbereit. 


Zusammenfassung 


Damit wurde die Eingabe eines wichtigen und komplexen Programms beendet, 
das hoffentlich bei vielen Anwendungen von Nutzen sein wird. Im Laufe dieses 
Verfahrens wurden auch eine Reihe von Techniken erläutert, die hilfreich sein 
werden, wenn der Benutzer in eigenen, anspruchsvollen Programmen nicht 
numerische Daten speichern und verarbeiten möchte. 

Hat sich der Benutzer jedoch die Mühe gegeben, die vorgenommenen Eingaben 
in Gedanken nachzuvollziehen, die Funktionen der einzelnen Zeilen, sowie die 
Gesamtfunktionen der Moduln zu überprüfen, so weiß er nun, daß umfangreiche 
und komplexe Programme nicht immer so schwierig sind, wie sie auszusehen 
scheinen. Mit Hilfe einer modularen Lösung, bei der das Programm in eine Reihe 
von überschaubaren Aufgaben unterteilt wird, können Anwendungen wie diese 
von jedem Benutzer entwickelt werden, der bereit ist, etwas Zeit (und ein klein 
wenig Mühe) zu investieren. 


Ein Schritt weiter 
1. Verfügt der Benutzer über einen Drucker, so wird er die Einträge oder Grup- 
pen von Einträgen auf Papier ausgeben wollen. Hierzu wird am einfachsten ein 


weiterer Befehl zum zweiten Teil des Such-Moduls hinzugefügt. 
2. Weiterhin wäre es interessant, zu sehen, ob das Programm neben den nicht- 
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numerischen Daten auch numerische Daten verarbeiten kann. Zu diesem Zweck 
müßte ein numerisches Feld mit 500 Elementen erstellt werden, in die Werte und 
vielleicht einige Suchbefehle wie ‘Suche nach Einträgen mit einem Wert, der grö- 
Ber ist als X’; eingegeben werden können. Es gibt eine ganze Reihe von Anwen- 
dungen, bei denen die Speicherung eines oder mehrerer numerischer Elemente 
von Vorteil wäre. 


4.2 UNIFILE II DATENBANK 


Nachdem Unifile eingegeben und ausgetestet wurde, steht Ihnen vielleicht nicht 
unbedingt der Sinn nach einer Variation desselben Themas. Ist dies der Fall, so 
kann dieses Programm für den Augenblick übersprungen und zu erfreulicheren 
Dingen übergegangen werden. Zu irgendeinem Zeitpunkt werden Sie jedoch zu 
diesem Programm zurückkehren, um zumindest einige der Probleme zu lösen, 
mit denen Unifile nicht fertig wird. Unifile ist für Dateien mit einer regelmäßigen 
Struktur geschaffen, und davon gibt es viele. Außerdem gibt es eine große Anzahl 
von Anwendungen, bei denen Sie einfach nicht im voraus wissen, wie viele Ele- 
mente in einem bestimmten Eintrag stehen. So möchte man vielleicht eine Biblio- 
thek katalogisieren. Dazu könnte das ursprüngliche Unifile-Programm so erstellt 
werden, daß Autor und Titel angefordert werden. Sobald jedoch mehr als ein 
Buch pro Autor vorhanden ist, ist die Zuweisung des Autorennamens zu jedem 
einzelnen Titel sehr platzaufwendig. 

Unifile Il ist für solche weniger strukturierten Dateien geschaffen. Es ist insofern 
flexibler als Unifile, als weiter beliebig Elemente zu einem Eintrag hinzugefügt 
werden können, solange innerhalb der Gesamtgrenze von 255 Zeichen geblieben 
wird. Außerdem kann eine wesentlich komplexere Suchform angegeben werden, 
bei der sämtliche Einträge gefunden werden, die bis zu zehn separate Suchziele 
enthalten. Diese Flexibilität hat jedoch einen Preis, insofern als das Programm 
komplizierter in der Benutzung ist. Hier gibt es keine der einfachen Eingabeauf- 
forderungen, mit denen festgelegt wird, welches Element als nächstes eingege- 
ben werden muß. Sollen darüber hinaus Elemente innerhalb eines Eintrags mit 
einem Titel versehen werden, so muß angegeben werden, um welche Titel es sich 
handelt. Sie müssen dann in einer codierten Form angefügt werden - das Pro- 
gramm weiß nicht, was als nächstes kommt, dies muß der Benutzer wissen. 

Da das Programm in der Struktur Unifile ähnlich ist, wird es am einfachsten einge- 
geben, indem als erstes Unifile selbst geladen wird. Bei der Eingabe von Unifile II 
werden Sie dann feststellen, daß viele der Programmzeilen identisch oder nahezu 
identisch sind, selbst wenn sie anders numeriert sind. Werden diese Zeilen neu 
numeriert, bevor man sich mit den Unterschieden befaßt, so wird sehr viel Zeit 
gespart. 
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Unifile Il: Variablentabelle 


B$(49) 
EX 


FNA(S1) 


FNB(S1) 


MN 


ss$ 


S2 
S3 


TI%(49) 
TN 


MODUL 4.2.1 


Enthält die angegebenen wahlweisen Elemenittitel 

Temporärer Indikator, mit dem angegeben wird, daß in dem Änderungs- 
modul ein zusätzliches Element zu einem Eintrag hinzugefügt wurde 
Funktion, die aus dem Wert des letzten Zeichens in einem Eintrag die An- 
zahl von Elementen innerhalb dieses Eintrags ausgibt 

Funktion, die die Position des letzten Zeichens eines Elementes inner- 
halb eines Eintrags ermittelt. Diese Funktion muß innerhalb einer Schleife 
mit einer Schleifenvariablen | benutzt werden, die die Nummer des Ele- 
mentes angibt 

Temporäre Variable, in der die Anzahl von Elementen innerhalb eines ein- 
gegebenen Eintrags festgehalten wird 

Aus dem Eintrag auf der Grundlage von FNA und FNB ausgegebenes 
Element 

Temporärer Pointer, der während der Suche benutzt wird 

Temporäre Aufzeichnung des Wertes von S1 während der Mehrfachsu- 
che 

Wird temporär zur Speicherung der Position von Elementen innerhalb 
eines eingegebenen Eintrags benutzt 

Die Typ-Nummer eines Elementes, wenn eines angegeben wird 


118098 REMIS RR 
11818 REM MENUE 

11828 REMIS Krk 
118308 POKE 53281,7:PRINT "\ERRBRRRBREBED] 

[REVERS EINJIITGRUEN]JUNIFILE" 

118489 PRINT" MBSILBLAUIMOEGLICHE BEFEHLE:" 
11458 PRINT"MMLROT) 1>DATEN EINGEBEN" 
11a68 PRINT'M 2EISUCHEN/ANZE IGEN/AENDER 


N" 


11a76 PRINT"M 3>’NEUE FELDER ERSTELLEN" 


11888 PRINT" 4 LADEN/SPE ICHERN" 

119948 PRINT" SPNELES FILE ANLEGEN" 
11189 PRINT" &2BEENDEN" 

i1111cd INPUT"WIBLAUÜJBEFEHL: "7Z:PRINT"W"? 
11128 IF Z>4 OR IN=1 THEN 11158 

11138 PRINT" DD NOCH KEIN FI 
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LE VORHANDEN. ":FORI=S1TO1998:NEHT 

11148 GCTO 11agda 

1115@a ON Z GOSUB 13980,17888, 13a00 ,2uadd 
‚12009, 11160:G0OTO 11806 

11168 PRINT" Aapesieiniriniege [REVERS E 
INILSCHWARZ IPROGRAMM BEENDET" :END 





Ein Standard-Menümodul. 


MODUL 4.2.2 


128089 REMHRROBIO OR ık 

12818 REM FILE ANLEGEN 

12028 REMOTE 

120838 CLR:DIM A$(439),B#(49),T171499: IN= 
1 

1284 DEF FNACSIISASCIRIGHTEFCASFCSII, 1 Dr 
1 

12858 DEF FNB(S1Y=ASC<KRIGHTSCAFESII,FNAC 
51)-1I+1>) 

12868 GOTO 11ageıı 


Das Modul initialisiert die Felder und kehrt sofort zudem Menü zurück. 


MODUL 4.2.3 


138820 REMOTE K 

138518 REM DATEN EINGEBEN 

13928 REMIS 

13830 T1i$5="":NN=-1:TN=9:PRINT"IBBBBRBBE 
[REVERS EINIJIIROTIEINGABE" 

13048 PRINT" EBRRPRBBRRBEBBILGRUEN]": IT" 

DATENSRETZE BIS JETZT" 

139598 FRINT"MIBLAUIMOEGLICHE BEFEHLE:" 

15864 PRINT"MLSCHWARZ IFITPURPURIJEINGABE D 

ES FELDES:" 

130878 PRINT"TSCHWÄRZ I >IPURPUR]1'%*' UM DEN 

DATENSATZ ZU BEENDEN” 

13888 PRINT" LSCHWARZ I>ETPURPURI '"tNN' UM D 

AS FELD NN EINZUGEBEN" 

13994 PRINT"ESCHWÄRZ I>ITPURPURI'ZZZ' UM I 
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NS MENUE ZURUECKZUKEHREN" 

13180 INPUT Q$:IF Q$="ZZZ2" THEN RETURN 

13118 IF Q$="ZZ22" THEN RETURN 

13128 IF LEFT$(Q$,1)<>"t" THEN 13150 

13138 TN=VAL (MIDS(Q$,2>3:TN=TN+18 

1314a PRINT"D">B$SCTN-1197":"7:G0T013108 

13159 IF TN<>8 THEN Q$=Q0$+"t"+MIDEISTREC 

TN?,23:TN=8 

13168 IF LEN<TISI+LEN(COS$SI HNN+2<=255 THEN 
13180 

13172 PRINT"IROTIDATENSATZ ZU LANG.":FOR 

J=1T039986 :NEXTJ RETURN 

13188 IF Q$="x" THEN GOTO 13298 

13198 T1$=T1$+Q$: TIXCNN+1)I=LENCTISI:NN=N 

N+1:GOTO 13190 

13200 FOR 1-98 TO NN: TI$=TISHCHRECTIZCIY) 
NEXT: TIS=STIS+HCHRSÄNN+1) 

1321a PRINT "BISCHWARZ IWAIT":GOSUB14988: 

GOSUB 15999:G0T0 13008 


Dieses Modul entspricht dem Eingabemodul von Unifile, ist jedoch aus zwei 
Gründen komplexer: 


1. Innerhalb des Moduls dem Programm mitgeteilt werden, wann ein Eintrag 
beendet ist. Dies geschieht durch Eingabe eines Sternchens ohne weitere Einga- 
be. 

2. Da die Datei keine regelmäßige Struktur aufweist, können keine regelmäßigen 
Eingabeaufforderungen für die Namen der einzugebenden Elemente vorgesehen 
werden. Das Programm sieht jedoch die Benennung von Elementen vor. Diese 
Namen und die ihnen zuzuweisenden Zahlen werden durch ein nachfolgendes 
Modul definiert - in diesem Modul kann der Elementname an ein Element ange- 
fügt werden, indem als erstes das 'T ' Symbol gefolgt von der Nummer eingege- 
ben wird, die dem gewünschten Typnamen vorher zugewiesen wurde. 


Kommentar 


Zeilen 13100-13140: Beginnt ein Eintrag mit dem 'T ' Symbol, so werden die dar- 
auf folgenden Zeichen als die Nummer eines Elementnamens angesehen, der zu 
dem gerade eingegebenen Element hinzugefügt werden soll. Die Eingabeauffor- 
derung wird nun unter diesem Typnamen wiederholt. Die Typnummer wird am 
Ende des Elements gespeichert, wobei ihr Wert um 10 erhöht wird, so daß es sich 
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stets um eine zweistellige Zahl handelt (es gibt 50 mögliche Typnummern/-Na- 
men). 


Zeile 13200: Zu der Folge von erstellten Elementen werden nun eine Reihe von 
Zeichen hinzugefügt, deren Codewert gleich der Position des letzten Zeichens 
jedes Elementes ist. Am Ende der Zeichenfolge wird ein weiteres Zeichen hinzu- 
gefügt, dessen Codewert gleich der Anzahl von Elementen in dem Eintrag ist. 
Werden die Einträge auf Band gespeichert, so müssen diese Zeichen in Zahlen 
übersetzt werden, da die Zeichen unter Umständen nicht im Bereich der Zeichen 
liegen, die in Zeichenform gespeichert werden können. 


Testen von Modul 4.2.3 


Das Modul kann nicht voll getestet werden, allerdings kann geprüft werden, ob es 
ausgeführt werden kann, indem temporäre RETURN-Befehle bei 14000 und 
15000 eingegeben werden. Danach sollte der Benutzer in der Lage sein, Elemen- 
te einzugeben und den Eintrag mit einem Sternchen zu beenden. 


MODUL 4.2.4 


14800 REMEBRKR 
14819 REM SUCHROUTINE 

148290 REMIS ak 
194830 IF IT=8 THEN 55=8:RETURN 

149848 PO=INT<SLOG(CIT?I/LOG(2I9:5SS=2tF0O-1 
1485@ FOR I=PO TO 8 STEP-I 

14860 IF A$(SSI<Ti1i$ THEN SS=SS+t2tI 
14979 IF A$(S5S5)>T1$ THEN 55=SS-2t1 
ı14a82a IF SS<Qd THEN SS=A 

14838 IF S5>IT-1 THEN SS=IT-1 

i141a2ı NEXT I:IF A$(SSI<T1$ THEN SS=S$Sti 
14118 RETURN 


Ein Standardmodul für die binäre Suche wie in Unifile. 


MODUL 4.2.5 


15888 REMIS 
1598108 REM EINFUEGEN 

15928 REMIS ak 
15838 IF IT=8 THEN GOTO 150850 

15942 FOR I=1IT TO SS+ti STEP -1:ASII)=eNEt 
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I-1>:NEKT 
13954 AS(SSI=-T1$:IT=SIT+I RETURN 


Ein direktes Einfüge-Modul. 
Testen von Modul 4.2.4 und 4.2.5 


Nun sollte der Benutzer in der Lage sein, Elemente einzugeben und sie in das 
Hauptdatei-Feld (A$) zu speichern. Dies kann nur im Direktmodus geprüft wer- 
den. 


MODUL 4.2.6 


12322 BREMER 
13@a19 REM NEUE FELDNAMEN EINGEBEN 

139828 REMOTE 
136836 FOR I=8 TO 43 STEP 10 

13248 FRIMT'"JIBBRRBRBEREREBTREVERS EIN) 
[ROTIFELODNAMEN" 

13254 PRINT "[GRUENI"F:FOR J=1 TO Irid:r 

RINT J+t1r "3" 37 BEEII:ENERT J 

1sa68& PRINT"MIBLAUIMOGEGLICHE BEFEHLE: " 
13272 PRINT" [SCHWARZ I>CTPURPUR]'ZZZ '=ZUM 
MENUE " 

13838 PRINT” ESCHWARZIFTPURFURI'III'=EIN 

GEBEN-LOESCHEN" 

19832 PRINT" [SCHWARZ I? TPURPUR] 'NNN'=NAE 

CHSTE SEITE" 

13188 IMPUT”"TBLAUIBEFEHL: "5Q8$: 

ı1311a IF Q$="NNN" THEN NEXT I:RETURN 
ı1s122 IF Q$<>"III" THEN GOTO 19984 

19138 INPUT"LPURFURIFELD NUMMER: "7O 
15142 PRINT"LGRUENINAME DES FELDES ODER 

[REWERS EINJIRETURNIREVERS AUS]I UM ES ZU 
LOESCHENE "> 

13150 Q$="":INPUT QE:B&E(Q-1)=-08:G60T01904 

8 


Hier handelt es sich um ein neues Modul, mit dem der Benutzer Elementtypen de- 
finieren kann. Das Modul zeigt einfach den Inhalt des Feldes B$ in Elfergruppen 
an und gibt dem Benutzer die Möglichkeit, einen Typnamen in eine bestimmte 
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Position in das Feld einzugeben. Nachdem er eingegeben wurde, kann ein Typna- 
me an ein Element angefügt oder wie unter Modul 4 beschrieben eingegeben 
werden. Die Typnamen können neu definiert werden, indem einfach ein neuer 
Name in die Position eingegeben wird, die von einem alten Namen belegt wird. 
Sie können auch gelöscht werden, indem die RETURN-Taste betätigt wird, wenn 


nach einem Typnamen gefragt wird. 


Testen von Modul 4.2.6 


Hier werden einige Typnamen eingegeben und dann zu dem Haupteingabemodul 
zurückgegangen. Dort wird 'T ' gefolgt von der Nummer eines definierten Typna- 
mens eingegeben. Die Eingabeaufforderung muß unter dem gewünschten Typ- 


namen wiederholt werden. 


MODUL 4.2.7 


e8BBE REMAKE 
2a@1@ REM LADEN/SPE ICHERN 

2aa29 REMIS 
20a3@ FRINT"MIBLAUIKASSETTE EINLEGEN, DA 
NN [REYERS EINIRETURNIREVERS AUSI--" 
2004a INFUT"MOTOR HAELT AUTOMATISCH ANE" 
:Q&:POKE192,7:POKE1,28 

2aaSQ PRINT"MIROTIMOEGLICHE BEFEHLE:":PR 
INT"MIGRUEN] 1>DATEN SPEICHERN" 

20955 PRINT"ZIDATEN LADEN" 

saese INPUT"MLBLAUIBEFEHL: "30:CONGGOTOEAB 
70,20159: RETURN 

zaera FOKE 1,7:FOR I=1 TO 2BBA:NEXT 
28088 OPEN 1,1,1,"UNIFILE":PRINT#1,IT 
z00s9a FÜR Si=8 TO IT-1:PRINTAI,FNACSI) 
za10a FÜR I=1 TO FNA<(SI)I-1:PRINTRI,FNB(S 
1):NEXT I 

2a11a PRINT#1,LEFT$(AS(SL),LENCAFCSLII-F 
NASSIII:NEKT 51 

zal2a FOR I=8 TO 49:IF B#(1)="" THEN Bst 
Ins" 

2a13a PRINTH1,BSCIDENEXT S 
28148 CLOSE1:RETURN 

2815@ OPEN 1,1,8,"UNIFILE":INFUT#1,IT 
20180 FOR S1=® TU IT-1:INPUTRL,NN 
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eB17a TTE="":FORI=S1ITO NN-1: INPUT#L,TT:TT 
$S=TT$+CHR&\TT’:NEKTI:TT$S=STTS+CHRSCNN-1) 
ea18sa GETH1,T$S:IF T$S<>CHR$(13) THEN A$(CS 
1>=SAFISLI+TS:GOTO 20180 

2A1I85 ASCSLI=SAFCSIIHTTE:NEXT Si 

28138 FOR I=8 TO 49: INPUT#H1,BECTII:NEST 
eBZEE CLOSE1:RETURN 


Ein Standardmodul einer Datendatei. 
MODUL 4.2.8 


21859 REMIS kkak ak ak ık 
elBid REM UNTERPROGRANME 

219820 REMIS K 
21a30 S5$=-MIDESCAFCS2EI,PP+1,FNB(S2I-PPIER 
ETURN 

eıaaa FF=8:T1$=RIGHT$XT1$,LEN(CTISI-3)9:F0 
R s2= 5S1T0 IT-1:FOR J=1 TO LEN{ASKID) 
2eiase IF MID$(AF(S2),T,LEN{T1S))=-T1$ THE 
N FF=1:51=52:J=LEN(A$(52)):52=1T-1 

2el86E NE=<T T,52:RETURN 

eiera FF=8:FOR 52=51 TO IT-1:FP=9:FOR I= 
1 Ta FNA<S2I-1:G0OSUB 21938 

21888 IF 55$=T1I#$ THEN FF=1:51=52:1=FNACS 
22-1:52=1T-1:G0T0 21120 

eiesa IF LEN«SSSI<4 THEN 21110 

elle IF MIDS\SSS$,LENISS$I-2,193="t" THEN 
SS$=LEFT#$(SS$,LENSS$I-39:6G0T0 21089 
eillda FP=SFNB(S2)> 

21128 NEXT 1,52:RETURN 


Dieses Modul besteht aus drei Routinen, die hier wirtschaftlicher angeordnet 
sind, da sie von verschiedenen Teilen des Programms aufgerufen werden. 


Kommentar 


Zeile 21030: Diese Zeile kann aus zwei Schleifen heraus aufgerufen werden: einer 
S2-Schleife, mit der die Zeile in der Hauptdatei angegeben wird, und einer |- 
Schleife, mit der die Elementnummer innerhalb des jeweiligen Eintrags angege- 
ben wird. Danach wird Element | in Form von SS$ aus Eintrag S2 ausgegeben. 


106 


Zeilen 21040-21060: Entsprechen der besonderen Suchroutine in Unifile. 


Zeilen 21070-21120: Eine direkte Suche nach Elementen. Die |-Schleife benutzt 
FNA, um festzustellen, wie viele Elemente in dem Eintrag vorhanden sind 
(FNA(S2) der Anzahl von Elementen in Eintrag S2 plus 1 für den Indikator am 
Ende). Danach wird 21030 aufgerufen, um die einzelnen Elemente auszugeben. 


Elemente mit einem Typindikator werden mit und ohne Typ-Suffix verglichen. 


Testen von Modul 4.2.8 


Das Modul kann erst überprüft werden, nachdem das nächste Modul eingegeben 


wurde. 
MODUL 4.2.9 


17088 REMOTE KK 
17818 REM SUCHEN 

17BaZz2 REMIS 
17939 Si=A:FF=8:PRINT"ÜJEEBBBBBBBEBeeı 
ROTIIREYERS EINISUCHEH" 

17848 PRINT"BIELAUIMÜOEGLICHE BEFEHLE:" 
176850 PRINT"M [SCHWARZ I>IGRUENIFUER NORM 
ALE SUCHE DAS FELD EINGEBEN" 

1ras2 PRINT" [SCHWARZ IFIGRUENIERYOR "III 
' FUER INITIALSUCHE" 

1787& PRIMT" [SCHWARZ I>TGRUENIDAVOR "555 
' FUER SPEZIELLE SUCHE" 

17a84 PRINT" ETSCHWARZIS>TGRUENITREVERS EI 
NIJRETURNIREVERS AUS] FUER DEN ERSTEN DAT 
ENSATZ " 

I7a98 PRINT" [SCHWARZ IF IGRUEN]'MMM' FUER 
MEHRFÄACHE SUCHE" 

irıiad PRINT "MBEIIFURFUR]E809RE0HR09000008 
LITT III TI TIITTTH 

17112 T18="": INFUT"CTBLAUISUCHBEFEHL: "7 TA 
Z:IFLEFTSETIS,19<SH"t"THENIYASO 

I1rlEE LET TN=YALSMIDSTTIS,ZIIH1A:GOTO 17 
110 

17134 IF TNMS>B THEN LET T1$=-T1$+"t"+MIDS$ 
ISTR$\TN?,2Z>I:TN=Q 

i714& IF LEFTSCT1IS,3><>"1III" THEN 17178 
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17158 TIS=RIGHTSST1S,LENCTISI-39:GOSUB 1 
48E98:51=55:IF S1>IT-1 THEN RETURN 

17168 Ti$="1I1II"+T1$:6GC0TO 17310 

irı7a IF LEFT$ITIS,3)<>"S55" THEN 17204 

17189 G0OSUB 21948: IF FF=1i THEN T1$="555" 
+T15:G0T0 17318 

i719G@ RETURN 

ir282 IF LEFTSCT1$,39<>"MMM" THEN 17278 

17218 GETZ$: INPUT" TGRUENITBANZAHL DIEER SUC 
HOATEH: "NM 

ir22& FORK=9TONN-1:PRINT"DATUM MUMMER"FK 
+17"2"37: IMPUTMECKISNEKTK 

I72zs5a FÜR K=@ TO NN-1:T1$=MECK):53=51:G0 
sUB2i078: IF FF=8 THEN RETURN 

ıi7246 IF 55<>51 THEN 17230 

17258 NEXT K 

I726& LET T1$="MMM":GOTO 17310 

17278 IF Ti1&="" THEN 173108 

irZ8@ GOSUB 2174 

17298 IF FF=1 THEN 17318 

17388 RETURN 

i7318 IF SI>IT-1 THEN S1=IT-1 

17328 IF IT=& THEN RETURN 

17334 IF Sisa THEN Si=ä 

17348 PRINT"SSIROTIDATENSATZ "751+1,":-4 
":PP=E:S2=S1:FORI1=-1TOFNA<CSI>-1 

17345 IFI12=1INTS I/123THENINPUT" TSCHWARZ 
JIWEITER:";TT$ 

17358 GOSUB 21430: 1IF LENSS$?<C4 THEN 173 
se 

17368 IF MIDS{RIGHTSCSS$,3),1,1><>"t" TH 
EN 173838 

1737. PRINT BS&(VRALIRIGHT$ESS#$,232-1197": 
"F:SS$=LEFTS(SS$,LENISSS$)-3) 

17388 FRINT 5S$ 

17338 PF=FNB«(S1?:NEXT 1:51=-51itl 

Iraae PRINT"BPHIOEGLICHE [REVERS EINJILROT] 
SUCH[REYERS AUSITBLAUIBEFEHLE:" 

17418 PRINT"M [SCHWARZ 1?MIT [LPURPURITREY 
ERS EINIJIRETURNLREYERS AUSJ ZUM NAECHSTEN 
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DATENSATZ" 

17429 FRINT" [SCHWARZ I FTPURFURI'AAA' UM 
zU AENDERN" 

174368 PRINT" [SCHWARZ IP>ETPURPUR]I'CCC' UM 
WE ITERZUSUCHEN" 

17448 PRINT" [SCHWARZI>TPURFURI'#' + ZAH 
L UM DEN ZAEHLER ZU ERFHOEHEN” 

17458 PRINT" [SCHWARZIFLPURFURI'ZZZ2' UM 
INS MENUE ZURUECKZUKEHREN" 

17468 P&="": INPUT"BIBLAUIEINGABE: ";P$ 
17478 IF Ti$="MMM”’ AND SI<IT THEN 17239 
i7aS8@a IF P&="CCC" AND SISIT THEN 17144 


ırasa IF P$="" THEN 17310 
17202 IF P&="Afn" THEN GOSUB 16904:GOTO 
173108 


17S1la IF P&="Z2ZZ" THEN RETURN 

17528 IF LEFTS<CPS,13="#" THEN S1=5S1+VALS 
MIDS(P$,23)3-1:G0T0 173108 

17538 S1=51-1:6G0T0 17318 


Entspricht dem Suchmodul in Unifile, sieht jedoch die Mehrfachsuche und Typna- 
men vor. 


Kommentar 


Zeilen 17110-17130: Hier muß beachtet werden, wie diese Routine feststellt, ob 
nach einem Element mit einer angefügten Typnummer gesucht wird, und dann 
die Eingabe unter dieser Typüberschrift anfordert, wobei die Typnummer an das 
Ende des Elementes angefügt 

wird. 


Zeilen 17140-17160: Eine erste Suche wie in Unifile. 


Zeilen 17170-17190: Besondere Suche, bei der die Routine des vorhergehenden 
Moduls benutzt wird. 


Zeilen 17200-17260: Die neue Mehrfach-Suchroutine. Mit ihr wird der Benutzer 
aufgefordert, die Anzahl von zu suchenden Elementen anzugeben und danach 
das einzelne Element einzugeben (Typnummern werden nicht verarbeitet). Eine 
Suchroutine wird bei 21070-21120 aufgerufen. Bevor jedes Suchelement angege- 
ben wird, wird der Wert des Suchpointers S1 in Form der Variablen S3 aufge- 
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zeichnet. Kehrt die Routine bei 21070 zu dieser Routine zurück, so wird der Wert 
von S3 erneut mit S1 verglichen. Unterscheidet sich S1 von S3, so ist klar, daß die 
beiden Elemente nicht in demselben Eintrag standen. Wird eines der angegebe- 
nen Suchelemente das erste Mal gefunden, so wird die Suche auf das erste der 
angegebenen Suchelemente zurückgesetzt, um zu gewährleisten, daß die ganze 
Liste mit Suchelementen mit den Elementen in dem Eintrag verglichen wird. 


Zeile 17280: Hat die Suche diese Stelle erreicht, so wird davon ausgegangen, daß 
es sich bei der Eingabe um ein Element handelt, nach dem mit einer normalen 
Suche gesucht werden muß. In diesem Fall wird die Suchroutine bei 21070 aufge- 
rufen. Hier wird auf die Benutzung des Flag FF in all diesen Suchroutinen hinge- 
wiesen. Mit ihm wird angegeben, ob die Suche erfolgreich war. 


Zeilen 17340-17390: Am Anfang des ausgewählten Datensatzes beginnend wird 
die Routine bei 21030 aufgerufen, um einzelne Elemente auszugeben. Typnamen 
werden ausgedruckt, wenn das 'T ' Symbol zwei Zeichen vor dem Ende des Ele- 
mentes steht. 


Testen von Modul 4.2.9 


Nun sollte der Benutzer in der Lage sein, in den Einträgen vor- und zurückzublät- 
tern, und die Suche mit den in dem Kommentar beschriebenen Methoden auszu- 
führen. 


MODUL 4.2.10 


18808 REMEBOSOOOIIOK 
1891&d REM FILE ZUSAMMENSCHIEBEN 

18828 REMOTE 
ısasa FOR I=S1 TO IT-L:ASCII=SAFCIHLII:NER 
T:IT=IT-1:RETURN 


Mit dieser einzeiligen Routine wird die Datei durchsucht, wenn Löschungen vor- 
genommen werden. 


MODUL 4.2.11 


168858 REMBIOIOIIIIOKAISIOIEOIIIEE KK KK 
1681Ed REM AENDERN EINES DATENSATZES 
160298 REMEAKKHHRHKK ERIK EKKKIEE K 
182398 51=51-1:T1$="":NN=-1:TN=8 

18948 FP=9:52=51:FOR I=1 TO FNA(SI1>-1 
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18052 PRINT"IMDATENSATZ "581+1r":-" 
16060 GOSUB 21A30: IF LEN(SS$)<4 THEN 168 
38 

1887@ IF MIDS(SS#,LEN(SSSI-2,1)<C>"t" THE 
N 16098 

16888 PRINT BS(VALCRIGHTS(SSS,2))-1195": 
";LEFT$(SS$,LEN(SS$)-3):G0T0 16108 

186089@ PRINT SS$ 

16188 PRINT" BLAU TMIERISMOEGLICHE BEFEHL 
Ei" 

18118 PRINT" [SCHWARZ I>IGRUENILREVERS EI 
NIRETURNI[REVERS AUS] LAESST DAS FELD UNG 
ERENDERT" 

16128 PRINT" [SCHWARZ I>LGRUENINEUE FELDE 
R MIT 'x' BEENDEN" 

186138 PRINT" [SCHWARZ I} [GRUENIDAS GEAREND 
ERTE FELD WIRD ANGEZEIGT": 

1814 PRINT" [SCHWARZ J>IGRUENI'ZZZ' KEHR 
T OHNE AENDERUNGEN ZURUECK " 

16158 PRINT" [SCHWARZ 1>LGRUEN]'DDD' LOES 
CHT DEN GANZEN DATENSATZ " 

18160 PRINT" [SCHWARZ I>IGRUEN]'RRR' LOES 


CHT DIESES FELD AUS DEM":PRINT" D 
ATENSATZ " 
i1eEir7rda Q$="":1INPUT"ELROTIEINGABE : "70# 


16188 IF Q$="ZZZ" THEN RETURN 

16194 IF Q$="RRR" THEN GOTO 16398 

16288 IF Q$="DDD" THEN GOSUB 18098:RETUR 
N 

162198 IF LEN(TISI+LEN(QSI+NN+2<S2S55 THEN 
GOTO 16239 

18228 PRINT"TROTIDATENSATZ ZU LANG":FORJ 
=1 T03096 :NEXT:RETURN 

16239 Ex=d:IF RIGHT$(GE$E,1)="*+" THEN Ek=1 
:Q$=LEFTS(QF,LEN(OSI-19 

18248 IF Q&="" THEN T1&=T1$+SS$:TIACNNt+I 
>=LEN<TI$SI:NN=SNN+1:GOTO 16304 

1S2ESA IF LEFTEF(QS,1)<>"t" THEN 16288 
186268 TN=YAL<CMIDSLQS,239+19:PRINT BES\TN- 
119337": "7 :Q&="": INPUT OS 


111 


16278 Q$=-Q$+"t"+MIDSCSTRECTN?,2) 

182830 T1&5=T1$+Q0$: TIZCNN+FII=SLENCTIEIENN=N 
N+1 

18230 IFEX<>1THENIE9SA 

18320 FP=FNB{S1>:NEXT I 

i831@ FOR I=6 TO NN: TI$S=TIS+HCHRSCTIAUCL)) 
:NEKT:TIS=TI$+CHRSCNN+1I 

16328 PRINT"MISCHWARZ IBITTE WARTEN" :GOSU 
B13B00R :GOSUB 14499 :G50SUB 15008 :RETURN 


Entspricht dem Unifile-Änderungsmodul. 
Kommentar 


Zeile 16230: Wird ein Element eingegeben, das mit einem * beendet wird, so be- 
deutet dies, daß ein neues Element vor dem gerade angezeigten Element in den 
Eintrag gesetzt werden muß. Die Variable EX (EXtra) wird auf Eins gesetzt, um 
anzugeben, daß dies geschehen ist. In Zeile 16290 wird mit dieser Variablen ge- 
währleistet, daß das angezeigte Element nicht verloren ist. 


Testen von Modul 4.2.11 


Nun sollte der Benutzer in der Lage sein, Einträge zu löschen, Elemente zu än- 
dern oder einzufügen. Wird dieses Modul einwandfrei ausgeführt, so ist das Pro- 
gramm zur Benutzung bereit. 


Zusammenfassung 


Wird berücksichtigt, daß die Anwendungen unterschiedlicher Natur sind, so hat 
dieses Programm sämtliche Vorteile des ursprünglichen Unifile-Programms, und 
ich hoffe, daß Sie es ebenfalls nützlich finden. 

Darüber hinaus hoffe ich, daß die Eingabe des Programms Ihnen Einblick in die 
Vorteile der modularen Programmierung gewährt hat. Aufbauend auf den ur- 
sprünglichen Unifile- Moduln konnte die Originalversion dieses Programms in 
weniger als einem Morgen geschrieben werden, da aufgrund der eindeutigen 
Struktur eines modularen Programms absolut deutlich wird, an welcher Stelle Än- 
derungen vorgenommen werden müssen. 

Es wird Zeit und Mühe bei der Programmierung gespart, wenn die Programme in 
eindeutig definierten VV Funktionseinheiten erstellt werden, es sei denn, es steht 
sehr wenig Speicherplatz zur Verfügung. Dadurch werden die Programme nicht 
nur einfacher lesbar, sondern wird auch die Wahrscheinlichkeit erhöht, daß die- 
selbe Routine von verschiedenen Teilen des Programms aufgerufen werden 
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kann. Außerdem wird der Austausch der Funktionen vereinfacht, die Sie zu einem 
späteren Zeitpunkt verbessern können. Und schließlich können ganze Abschnit- 
te problemlos zur späteren Benutzung in anderen Anwendungen aus dem Pro- 
gramm herausgenommen werden. 


Ein Schritt weiter 


1. Die Mehrfach-Suchroutine sieht die Angabe von Typnamen der Elemente 
nicht vor. Die Zeilen 17110-171930 sind ein klares Beispiel dafür, wie eine derartige 
Möglichkeit geschaffen werden könnte. 

2. In professionellen Datenbanken besteht im allgemeinen immer die Möglich- 
keit, nach Einträgen zu suchen, bei denen beispielsweise vier von insgesamt acht 
Suchkriterien vorhanden sind. Mit einigen kleinen Änderungen könnte das vorlie- 
gende Programm dieses Ziel ebenfalls erreichen. 


4.3 NNUMBER 


Nachdem nun zwei Programme eingegeben wurden, die eine Vielzahl von Anfor- 
derungen im Bereich der Speicherung nicht numerischer Daten abdecken, wol- 
len wir uns jetzt den Problemen der Verfolgung von Zahlen zuwenden. Obwohl 
die meisten numerischen Anwendungen für ein bestimmtes Problem geschrie- 
ben werden müssen, ist NNumber (Abkürzung für Name und Number) den bei- 
den Unifile-Programmen insofern sehr ähnlich, als es ein Universalprogramm für 
Anwendungen ist, bei denen die Namen von Elementen und die mit ihnen ver- 
knüpften Mengeneinheiten gespeichert und die Elemente in verschiedenen Men- 
gen addiert werden müssen. Sollten Sie der Auffassung sein, daß Sie eine derarti- 
ge Anwendung nie benötigen, so sollte ich vielleicht sagen, daß die Idee für das 
Programm aus einem Kalorienzähler entstand, mit dem der Benutzer ein Ver- 
zeichnis von bis zu 500 Speisen speichern und den Kalorienwert der Nahrungs- 
mittelaufnahme eines Tages oder einer Woche berechnen kann. Das vorliegende 
Programm kann ohne Änderung ebenso problemlos Rechnungen erstellen wie 
Kalorien zählen. 

Da der Stil des Programms den beiden Unifile-Programmen sehr ähnlich ist, und 
da viele der Funktionen gleich sind, wurden die Kommentare und die Testemp- 
fehlungen weitestgehend abgekürzt. 


NNumber: Variablentabelle 


A$(488,1) Hauptverzeichnis-Feld 
C(499) Werte, die mit den im Hauptverzeichnis angegebenen Einheiten verknüpft 
sind 
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Temporäre Variable, mit der die Summe der Elemente in der aktuellen Li- 
ste kumuliert wird 


CU Anzahl von Elementen in der aktuellen Liste 

NN$ Allgemeiner Name für die aufgezeichneten Elemente 

IN Initialisierungs-Flag 

IT Anzahl von Elementen, die in dem Hauptverzeichnis gespeichert sind 

NN Temporärer Speicher für den Wert, der mit dem neuen eingegebenen Ele- 
ment verknüpft ist 

PO Mit dieser Variablen wird die Anzahl von Vergleichen in dem binären 
Suchmodul festgelegt 

aa$ Allgemeiner Name für Mengen, die mit den aufgezeichneten Elementen 
verknüpft sind 

R$ Separator, der bei der Sicherung der Datendatei benutzt wird 

SS Such-Pointer für die binäre Suche 

T(49) Werte, die mit den in T$ gespeicherten Elementen verknüpft sind 

T$(49,1) Speicherung der aktuellen Liste 

T1$ Temporäre Speicherung des eingegebenen Elementnamens 

T2$ Temporäre Speicherung von Einheiten, die mit T1$ verknüpft sind 

MODUL 4.3.1 


11880 REMEICOS RR 
11818 REM MENUE 

11228 REMIS RAR 
118398 POKE 53281,13:PRINT "ISRBBBBEBEBBB 
[ROTITREYERS EININAME ARHD MUMBERLREVERS 
AUSI" 

1l1@9E PRINT "MBIELAUIJIMOEGLICHE BEFEHLE: " 


11050 PRINT "IGRUENIMN ID>LISTE AUSGEBE 
N" 


1l1E6g PRIMT " E)EINGSABEN IN DIE LISTE" 
11870 FRINT " 3>NEUE LISTE BEGINNEN" 
11888 PRINT " 4>AUS DER LISTE LOESCHEN 
11894 PRINT " SPDATEI ERWEITERN" 

11109 PRINT " E’EKHTEI AUSGEBEN" 

illia PRINT " T>LAÄDEN/SPE ICHERN" 

i11l28 PRINT " S>INITIALISIEREN" 

1113a PRINT " SDBEENDEN" 
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11148 INPUT "BIBLAUIBEFEHL:"7Z:PRINT "i" 


= 
4 


1115a IF IN<X>B OR Z=& OR Z=3 THEN GOTO 1 
1188 

i1li16d PRINT "WEROT J EISISIEImIKINIeIeIe 
H NICHT INITIALISIERT" 

11179 FOR I=-1i TO Zagma:NEXST:GOTO 11add 
il18sa IF IT>8 OR Z=2 OR Z=3 OR Z=5 OR Z= 
7 CR Z=& OR Z=3 THEN 112ia 

1113@ PRINT "WEROT ] ERADepSDeDepepeiepeieien 

KEINE DATEN VORHANDEM” 

11288 FOR I=1 TO Zaaa:NEHT:GOTO 11008 
1lz1a ON Z GCSUB 13aad,14069,14126,19990 
‚\Se08,15000 ,Zagau, lzaaa,11230 

l1lzza GOTO 11ade 

1123& PRINT "Jeisiepisieieieie 
TIMAME ANE NUMBER " 
11240 FRINT '"EERRBRBEBRBRBBI GRUENIPROGRA 
MM BEENDET" :=END 








[RO 





Standard-Menümodul. 


MODUL 4.3.2 


1280E REMHSSOIOIOIO RK 
12818 REM INITIALISIEREN 

12022 REMIS 
12838 CLR:DIM A&(439,1>,C149993,T84493,1), 
TX349):CURR=8: IT=@: IN=S1L:R$=CHRS(C13) 

129835 INPUT "SIROTIMOECHTEN SIE VON KASS 
ETTE LADEN “JMD: "7QS: IF Q$="J" THEN 118 
[212] 

12842 INPUT "MLBLAUINAME DER OBJEKTE: "}N 
NE 

129858 INPUT "BMENGENE INHEIT:"7Q0#:GOTO 1 
18090 


Initialisierung von Variablen. Mit diesem Modul kann der Benutzer auch den Na- 


men des zu speichernden Elementtyps und den allgemeinen Namen der Einhei- 
ten angeben, z. B. Nahrungsmittel/Einheiten, Produkt/Verpackung 
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MODUL 4.3.3. 


152220 REMEBIOOBRKHOGIOIOIOK OO 
1591Ed REM DATEI ERWEITERN 

15828 REMIS AHORN IKK KR 
158Sa IF ITEMS<SOB THEN 15058 

15848 PRINT "BIROTIEIBKEIN PLATZ MEHR IN 
DER DATEI":FOR 1I=1 TO 2Z808:NEXT:RETURN 

15858 PRINT "IEBRBBBBILREVERS EINILBRAUN] 
NEUE OBJEKTE FUER DIE DÄATEIIREYERS AUS" 


15068 PRINT "MBLROTI"7NNS$7 : IMPUT ":XNAME 
übER 'ZZ2' FUER MEMNUEI:"FTIS 

15Sere IF TiS="ZZ2" THEN RETURN 

15888 PRINT "M"G08$5 : INPUT ": "TECH 

15298 PRINT "SMENGE PRO "+T237: INPUT NN 

15180 INPUT "MEBLAUIJEINGABE KORREKT (J/N 

I: "7Q8:IF QE="N" THEN GOTO 150598 

15118 GOSUB 16969:GOSUB 176088: 1IT=IT+1:6Gü 

TO 15050 


Das Eingabemodul für das Hauptverzeichnis. Nachdem der allgemeine Name für 
die Elemente und deren Einheiten eingegeben wurde, wird der Benutzer aufge- 
fordert, den Elementnamen, den Einheitennamen und die Grundmenge pro Ein- 
heit (d.h. Kalorien, Preis, Menge) einzugeben. 


MODUL 4.3.4 


18608 
16810 
18928 
16038 
16040 
16950 
16868 
16078 
16984 
16990 
1s1a& 
is1ila 
16128 
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REMBSOISKKKk 
REM SUCHROUTINE 
REM RK OK 
IF IT=8 THEN 55=0:RETURN 
PCG=INT<LOG<S IT) -LOG(29I9:55=2tPO-1 
FOR I=FüO TO 8 STEP -1 

IF A$iSS,O)<T1$ THEN SS=SS+t2tl 

IF A$(SS,O>3>T1#$ THEN 5S=SS-2tl 

IF SS<s@ THEN 55=8 

IF SS>IT-1 THEN S5=I1IT-1 

NEXT I 

IF A$(S5,8)<Ti1$ THEN S5S=SSt+i 
RETURN 


Ein Standardmodul für die binäre Suche. 
MODUL 4.3.5 


17800 REMIS 
170818 REM OBJEKT EINFUEGEN 

178220 REMIS Ak 
17838 IF IT=8 THEN GOTO 17069 

178944 FOR 1=1IT TO S5S+1 STEP-I:AF(I,O)=A$ 
I-1,09:A$C1I,1)=A$KI-1,1D 

17850 CXID=CiI-1I:NEXT 

17069 A$(S55,93=-T18:AS\SS,1)=-T2$:C(CS5)=NN 
:RE TURN 


Ein Standard-Einfügemodul. 
MODUL 4.3.6 


18208 REMIS RAR 
ISd1O REM DATEI AUSGEBEN 

18828 REMIS rk 
180398 55=-0:T1&="x1" 

ı3a40 FRINT "RBBBBBBEBBBBRBILREVERS EIN 
JLEROTISUCHENITREVERS AUS]J" 

1885a PRINT "TBLAUITSOBJEKTNUMMER: "755+1 
ı1SEEA PRINT "MIROTI"FNNEF "SE" ZAS\SS,B) 
1S5a7E PRINT "M"7QQ08$: ":"AS(5S,1) 

182850 PRINT "BMENGE PRO "FAS(CSS,1),":":C 
(S5) 

18434 PRINT "MIGRUEN]WRSS09000090008088 
ATI TITTEN 

isiad PRINT "LTSCHWARZ IMOEGLICHE BEFEHLE: 
18118 PRINT "MIGRUEN]I OBJEKT NACH DEM 
GESUCHT WERDEN SOLL" 


1sizd PRINT " >'%'+ NUMMER UM DEN ZAEH 
LER ZU ERHOE- HEN 

181308 PRINT " >'DDD' UM DAS OBJEKT ZU 

LOESCHEN" 

isi4d PRINT " »'zZZZ2' UM INS MENUE ZURU 


ECKZUKEHREN" 
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18158 Ti$="":1INPUT "MIPURPURIBEFEHLE: "FT 
1$ 

ıg1i6a IF Ti$<>"DDD" THEN 18198 

18178 FOR I=SS TO IT-L:AS<CI,O3=AS$CIt1,8) 
SASCI,1ISASIIrl,19:CCI9=SCKI+HL):NERT 
18134 IT=IT-1:G0T0 18948 

ıisıaam IF Ti&="Z222" THEN RETURN 

182088 IF LEFT$(T1$S,1)%>"*" THEN GOSUB 16 
89898:G0T0 18220 

is2la S5=-SS+VAL<MID${TIES,2)> 

ıis22& IF SS>IT-1 THEN SS=IT-1 

18238 IF 5S<A THEN 55=8 

is242a GOTO 18944 


Das Haupt-Suchmodul des Benutzers. 
Testen der Moduln 4.3.1-4.3.6 


Der Benutzer sollte nun in der Lage sein, Daten einzugeben und mit Hilfe des 
Suchmoduls zu prüfen, ob diese richtig (nach Elementnamen sortiert) in das 
Hauptverzeichnis eingegeben wurden. 


MODUL 4.3.7 


PRBBR REM 
eoRiea REM LADEN/SPE ICHERN 

eaa28 RES RRIRIIRII 
28838 PRINT "BIROTIKASSETTE EINLEGEN, DA 
NN [REVERS EINJRETURNIREVERS AUSI--" 

egaad INPUT "MOTOR HAELT AUTOMATISCH AN: 
"ZQS:POKE 192,7:POKE 1,39 

2e8450 PRINT "MLESCHWARZ IMOEGLICHE BEFEHLE 
:":PRINT "[purpurli>daten speichern" 
28855 PRINT "BEIDATEN LADEN" 

eRBER INPUT "WIESCHWÄRZ IBEFEHLE:"7Q: ON Q 
GOTO 298470 ,2814A:RETURN 

eaa7E POKE 1.7:FCGR 1=1 TO ZAaa:NEHKT 
emasa OPEN 1,1,2,"NNUMBER":PRINT#1,NN$,R 
$,00$,R$,CU.R$,IT 

28898 IF Cu=8 THEN 2ailla 

28189 FOR I=8 TO CU-1:PRINT#1.T#FCI,A),R$ 
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‚T$SCI,13,R$,TSTD:NEXT 

e8ilia IF IT=8 THEN 29138 

28128 FOR I=8 TO IT-1:PRINT#I,AS(I,Od),RE$ 
‚ASC1,.13,R$S,CCII:NEXT 

2ea13a CLOSE1:RETURN 

28148 OPEN 1.1,8,"NNUMBER": INPUT#1,NN$,Q 
QO$,CU,IT 

2ee15a IF Cu=8 THEN 24178 

e8168 FOR I=&a TO CU-1:INPUTHL,TFCIT,O),T$ 
x«1,13,TCID:NEXST 

eeira IF IT=8 THEN 2a19a 

28188 FOR I=a TO IT-1:INPUTHIL,AFCI,AI,AS$ 
XI,12,CCID:SNEXT 

28194 CLOSE1:RETURN 


Ein Standardmodul der Datendatei. Hier werden die Daten gespeichert. 


MODUL 4.3.8 


14200 REMEHISHIIIOIIIIIRIRRI 

i142@12 FEM LISTE ERWEITERN 

14920 REMIICHAFAOKAOIIRIIRKK 

i1403a IF CU=598 THEN FRINT "JCROT I MeIeig 
LISTE IST WOLL.":RETURN 

1432485 PRINT "ÜEBBBBBBILROTILFKEVERS EINIER 

WEITERN DER LISTELIREVERS AUSI" 

14958 PRINT "SBSIGRUEN]"7NNSB" < 

R MEMUEI:S"FEINPUT TiS$:IF T1$="22 

RETURN 

14050 GOSUB 16089: IF A$(ıSS,98>=-Tl1l#& THEN G 

0TO 14088 

1487&a PRINT"BBLELAUJUNBEKANNT, BITTE UEB 

ERFRUEFEN. ":FORI=1TOZa0G8 :NEXT:RETURN 

14aC6 PRINT "M"7003&5 ":"7A$<(55,1):INPUT " 

menge:i"rq 

148985 INFUT "MELFURPURIJIEINGABE KORREKT 

JMD: "OS: IF Q$="N" THEN 14000 

143108 TECCU,BOI=-AE$(SS,83:TFICU,1)=-STRE(Q) 

+" P4+ASBISS,1):TSICUISQAEC(SSI: CU=SCU+rl 

14112 GOTO 14004 





'ZZZ' FUE 
zZ" THEN 
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Bis jetzt konnte der Benutzer Angaben in das Hauptverzeichnis eingeben und die 
Daten verarbeiten. Der wichtigste Punkt des Programms besteht jedoch darin, 
was aus dem Verzeichnis ausgegeben und in einer temporären Liste gespeichert 
werden kann, die als aktuelle Liste bezeichnet wird. Am Anfang dieses Moduls 
kann der Benutzer ein Element in dem Verzeichnis benennen und angeben, wie 
viele Einheiten dieses Elementes zu der aktuellen Liste hinzugefügt werden sol- 
len. Das binäre Suchmodul wird aufgerufen, um zu prüfen, ob die Elementeingabe 
tatsächlich in dem Verzeichnis steht. 


MODUL 4.3.9 


139882 REMIS 
13010 REM LISTE AUSGEBEN 

13028 REMIS 
1308308 IF CU=® THEN RETURN 

13084@ PRINT"W":CT=8:FOR I=a TO CU-1:PRIN 
T "MIBLAUI"SNNSE "I" TECI,O) 

13985@ PRINT "MW" QQ$7 ":"ZTECI,LI:PRINT "M 
MENGE: ":TCID 

13860 PRINT "MLGRUEN]0000000000000000000 
O00000000000000000000" 

13070 INPUT "[REVERS EINIRETURNLREVERS A 
US] FUER DAS NAECHSTE OBJEKT: ":Q$:PRINT 
'CO" 

1388@ PRINT " 

13038 CT=CT+TCII:NEXT I 

13188 PRINT "LPURPURIMTOTAL: [SCHWARZ 1" #C 
i 

1311@ INPUT "MIGRUENILREVERS EINIRETURNL 
REVERS AUS] UM INS MENUE ZURUECKZUKEHREN 
:"Q$:RETURN 


Nachdem Elemente in die aktuelle Liste eingegeben wurden, kann die aktuelle Li- 
ste mit diesem Modul auf dem Bildschirm ausgegeben werden. Mit ihm kann eine 
Gesamtsumme der Werte erstellt werden, die mit den Elementen in der aktuellen 
Liste verknüpft sind. 


MODUL 4.3.10 


1929020 REMIS 
19818 REM AUS DER LISTE LOESCHEN 
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122290 REMIS. 

198838 IF CU=9 THEN RETURN 

18842 FOR I=a TO CU-1:Q$="":PRINT "[BLAU 
"zt$Ci,Ad:print ""Ft#li,1) 

13952 INPUT"TGRUENIJTBDDE=LOESCHENIREVERS 

EIN] [REVERS AUS IRETURN=NAECHSTESTREVYERS 
EIN]J [REVERS AUSJZZZ=MENUE: "0$ 

19855 IF Q$="ZZZ" THEN RETURN 

ı1306@M IF Q$<>"DDD" THEN NEST I:RETURN 

13a78 FOR I=1 TO CU-1:T$(1,0)=T$CI+1,09: 

TECI,1I=TSCT+1,19:°TCII=TEI+LIENEXT 

19838 CU=CU-1:RETURN 

19994 STOP 


Dieses Modul ermöglicht dem Benutzer, durch die Einträge in der aktuellen Liste 
zu blättern und sie nach Belieben zu löschen. Es gibt keine komplexen Suchfunk- 
tionen, sondern hier wird einfach Element für Element durchgeblättert. 


Testen der Moduln 4.3.8-4.3.10 


Nun sollte der Benutzer in der Lage sein, eine aktuelle Liste zu erstellen, diese 
anzuzeigen und nach Belieben Elemente aus der Liste zu löschen. 


MODUL 4.3.11 


141208 REM HE OR 
14138 REM NEUE LISTE BEGINNEN 

14140 REM 
14158 FOR I=1 TO 54:T#C1I,D9)="":TECI,1)=" 
":T<I>=@tCUs=sg:RETURN 


Da die aktuelle Liste nur als temporäre Liste gedacht ist, die häufig zurückgesetzt 
werden kann, löscht dieses Modul die Felder der aktuellen Liste und setzt den ak- 
tuellen List-Pointer auf Null. Wird das Modul richtig ausgeführt, so ist das Pro- 
gramm zur Benutzung bereit. 


Zusammenfassung 


Dieses Programm ist ein weiteres Beispiel für die Leistungsfähigkeit der modula- 
ren Programmierung. Auch wenn die Anwendung sehr verschieden ist, wurden 
viele der Moduln mit oder ohne Änderung aus den beiden vorherigen Program- 
men genommen. 
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Mit fortlaufender Erfahrung als Programmierer wird der Benutzer schnell feststel- 
len, daß eine Sammlung von Methoden zur Ausführung von Aufgaben, die in sau- 
ber voneinander getrennte funktionale Einheiten geschrieben werden, sogar 
noch wichtiger ist als eine Sammlung von Programmen. Eine Bibliothek mit Pro- 
grammen wird immer gute Dienste leisten, bis eine neue Anwendung benötigt 
wird. Eine aus einwandfrei arbeitenden Moduln zusammengestellte Bibliothek 
verhilft dem Benutzer zur problemlosen Lösung dieser neuen Anwendungen. 
Neue Methoden finden Sie in Zeitschriften und Büchern wie diesem (auch wenn 
dieses natürlich einmalig ist). Deshalb wird empfohlen, die neuen Methoden zu 
verfolgen, wenn sie gut erscheinen, auch wenn ihre Relevanz im Augenblick nicht 
sichtbar wird. Nach einer oder zwei Wochen wird man oft feststellen, daß sie 
genau das sind, wonach gesucht wird, um das Programm zu vervollständigen, 
das im Augenblick so viele Probleme schafft. 
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KAPITEL 5 


SCHULE ZU HAUSE 


Ein Bereich, in dem sich die Mikrocomputer erst zu bewähren beginnen, ist der 
Bereich der Bildung und Ausbildung. Keine Schule ist heute ohne einen oder zwei 
Computer als komplett zu bezeichnen. Das computerunterstützte Lernen ist je- 
doch nicht nur in der Schule von Bedeutung- Computerleistung zu einem ver- 
nünftigen Preis bedeutet, daß all seine Vorteile auch heute zu Hause ausgenützt 
werden können. In diesem Kapitel werden drei Programme vorgestellt, die ein 
Beispiel für Anwendungen im Erziehungsbereich darstellen, unabhängig vom Al- 
ter des Benutzers. 


5.1 MULTIQ 


Dieses Programm ist eigentlich mein liebstes. Als ich es geschrieben habe, war 
ich mit meiner Arbeit überaus zufrieden, da sie die gestellte Aufgabe voll erfüllt. 
Erst als ich eine große Anzahl von Fragen eingegeben und diese mit verschiede- 
nen Personen ausprobiert habe, habe ich festgestellt, daß das Lernen mit derarti- 
gen Programmen ebenso zur Sucht werden kann, wie andere Computerspiele. 
Wie Unifile ist dieses Programm ein Chamäleon, das seine Farbe je nach Bedarf 
ändert. Einmal kann es als Lehrer für Französisch benutzt werden, und wenige 
Minuten später beantwortet es komplexe Fragen über die Geschichte des 19. 
Jahrhunderts. Dieses Programm soll all dies und noch mehr ermöglichen, ohne 
daß Änderungen an dem Programm selbst erforderlich sind. 


Multiq: Variablentabelle 


AA Temporäre Variable, in der die vom Benutzer ausgewählte Antwort ge- 
speichert wird 

A$(1,499) Hauptfeld mit Fragen und Antworten 

D(1,9) Zeiger zum Anfang von Gruppen mit Elementtypen in des Hauptfeldes 

D$(9) Feld mit Elementtypen 

IT Anzahl von Elementen, die in das Hauptfeld gespeichert sind 

NA$(1) Feld mit allgemeinen Namen für Fragen und Antworten 

P1,P2 Zeiger zu dem Dateibereich, auf den zur Generierung von Fragen Bezug 


genommen wird 

Zeiger zu der falschen Antwort, die aus der Matrix ausgewählt wurde 
PP Wird beim Erstellen eines Tests mit mehreren Auswahlmöglichkeiten be- 
a4) nutzt 
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Q1 Position der zufälligen Antwort, die aus der Datei geholt wurde 


Q2 Position der richtigen Antwort in dem möglichen Antwortfeld Q 

QT Gesamte gestellte Fragen 

QU Indikator zu dem Fragentyp, der in dem Modul zur 
Generierung von Fragen benötigt wird 

R$ Separator in der Datendatei 

RR Richtige Antworten 

SU Temporäre Variable, die bei der Berechnung von Gruppen in dem Feld D 
benutzt wird 

TY Anzahl von eingegebenen Typnamen 

MODUL 5.1.1 


11992 REMEERORKSORO N IRRE KH 
11818 REM MENUE 
11222 REMIS 
11239 POKE 53281,15:PRINT "ÜSLBLAUIJIBRRBI 
[REVERS EINJIMULTIQ" 

110840 PRINT "BMÜEGLICHE BEFEHLE:" 
11450 FRINT "M [GRAU ZI1>NEUE DATEN EING 
EBEN" 
11860 FRINT " ZISUCHEN/LOESCHEN" 
11876 PRINT " Z>NEUE FRÄAGENBEREICHE DEFI 
NIEREN" 
11asa PRINT " 4>FRÄGEN GENERIEREN" 
11898 PRINT " SPANZEIGEN ODER LOESCHEN D 
ER PUNKTZAHL " 
1119a FRINT " SILADEN/SPEICHERN" 
i1111a PRINT " 7>INITIALISIEREN" 
11128 PRINT " SIBEENDEN" 
11136 INPUT "MEHELLBLAUIJIIHRE EINGABE : " 
"PRINT "3": 
11142 COM Z GOSUB 13008, 16499,121988,17298 
‚189080,19808,12068,11156:G0T0 11808 
11158 PRINT "WEBLAU I eleTeleieieien 

I[REVERS EINIJPROGRAMM BEENDET": END 





Ein Standard-Menümodul. 
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MODUL 5.1.2 


12880 RE MIRRORS ka 
12818 REM INITIALISIEREN 

122298 REMESOIIDRIIRk 
12839 CLR:DIM NA$(1>,0143,ASC1,500),DE(1 

B),D<C1,1B@):RS=CHR$K13) 

12048 INPUT "SBESCHWARZ IJLADEN SIE VON KAS 

SETTE £J/NI: "OS: IF Q$="J" THEN 11888 
12854 PRINT "IIBLAUJIBBRBRRRBBRBITREVERS 

EINISTRUKTUR DES TESTS" 

128698 PRINT "SIORANGE JALLGEMEINER TITEL 

FUER DIE ANTWORTEN: ": INPUT NAS$(O) 

12078 PRINT "MIBRAUNJIALLGEMEINER TITEL F 

UER DIE FRAGEN: ": INPUT NA$CI) 

12688 INPUT "MCHELLROTIEINGABE KORREKT « 

J/ND:"3Q0$: IF Q#="N" THEN 12858 

128998 DS$S(9)="KEINE ART SPEZIFIZIERT":TY= 
a 

12188 PRINT "ÜSLBLAUIBRBRBBERBRRBRFRAGEN 

BEREICHE" 

12118 PRINT "MWIROTIGEBEN SIE 'ZZZ' EINU 

M INS MENUE ZU- RUECKZUKEHREN. " 

12128 PRINT "MIPURPURIBIS JETZT EINGEBEN 

E BEREICHE: -";:IF TY=8 THEN PRINT "ITSCHW 
ARZ IKEINE" 

121sa IF TY<>9 THEN PRINT "M":FOR I=si TO 
TY:PRINT "TORANGE]"?1T7"- [BRAUNI">DSCT) 
:NEXT 

12148 INFUT "BIBLAUINEUER FRAGENBE ICH: "; 

Q$:IF Q$ ="Z222" THEN 11080 

12159 INPUT "BMISCHWARZ IKORREKT (J/ND:"7Q 
1$:IF Qi& ="N" THEN 121098 

12168 IF TY = 18 THEN PRINT "MIROTIKEIN 
PLATZ MEHR ! MAX. 18 BEREICHE !" 

12165 IF TY = 18 THEN FOR I=1 TO Z288:NE 

$T:GOTO 11808 

12178 TY=TY+1:D$SCTY?)=0$:60T012108 


Dieses Modul initialisiert die Hauptvariablen und ermöglicht dem Benutzer die 
Angabe des allgemeinen Namens für Fragen und Antworten. Der Benutzer kann 
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auch bis zu neun Typnamen angeben, mit denen die Tests später schwieriger ge- 
staltet werden. 


MODUL 5.1.3 


13809 REMEHSRERSKSISOR KR aka 
1381@8 REM EINGABE NEUER DATEN 

13928 REMIS CK OR AK RARRRRIIOIOIOK 
132838 PRINT "JSTELAUJEBBRRRRRRRERBBILREVE 

RS EININEUE DATEN":PRINT "Torange]l'zzz' 
=ZURUECK ZUM MENUE " 

13842 IF IT>=5S088 THEN PRINT "MIROTIKEIN 
PLATZ FUER WEITERE DATEN !" 

13845 IF IT>=5088 THEN FOR I=i TO 2808:NE 
£T:RETURN 

13858 PRINT "BISCHWARZ I"FNAFCBIF"E "3: INP 

UT TI$:IF Ti$="ZZZ" THEN 13168 

130698 PRINT "MIHELLROTI"FNASCLIE"L"FEINP 

UT T2$:IF T2$="ZZ22" THEN RETURN 

1397G IF TY=8 THEN T=9:G0T0 13188 

138838 PRINT "[BRÄUNIBERE ICH: ":FOR I=1 TO 
TY:PRINT I7DSCDD:NEXT I 

13898 INPUT "BIBLAUIWELCHES: "FT 

13188 PRINT "BIBLAU]JIBRRRRRRRBRBBILREVERS 
EINJNEUE DATEN" 

1311 PRINT "MIROTILREVERS EINI"FNAS(CH)> 
"TREVERS AUS1:"FT1$:PRINT "BIBRAUNILREVE 
RS EINJ"ZNASCIIF"TREVERS AUSJ:">T2$ 
13128 PRINT "SIGRUEN]IL[LREVERS EIN]IBEREICH 
[REVERS AUSI">DESCTI: INPUT "Ischwarzlein 
GABEN RICHTIG «J/W:"708 

13130 IF Q$<>"J" THEN 13894 

13148 D<8,T)=D<8,T)+1: T1i$=CHR$S(438+T)+TI1$ 
1315R GOSUB 14RAA:GOSUB 15029:G0T0 13494 
13169 SU=B:FOR I=8 TO 9:D(1,1)=SU:SU=-SU+r 
D<8.I>:NEKT:RETURN 


Dieses Modul akzeptiert die Eingabe von Fragen und Antworten unter den vom 


Benutzer angegebenen Überschriften, wobei ein Typ angefügt werden kann, 
wenn Typen eingegeben wurden. 


126 


Kommentar 


Zeile 13070: Ist TY gleich 1, so wurden keine Typnamen eingegeben und der Typ 
wird auf 'Untyped’ gesetzt. 


Zeile 13140: Das entsprechende Element in der ersten Spalte des Feldes D wird 
um 1 erhöht, wobei die Tatsache berücksichtigt wird, daß die Typgruppe erhöht 
wurde. Die Typnummer wird in Form eines Zeichens zwischen O und 9 vor die 
Antwort gesetzt. 


Zeile 13160: Die zweite Spalte des Feldes D wird justiert, so daß sie die Anfang- 
sposition jeder Typgruppe enthält. 


MODUL 5.1.4 


14889 REMIS K 
14819 REM SUCHROUTINE 

14820 REMAKE 
14838 IF IT=9 THEN SS=8:RETURN 

148498 PO=INT<LOG<ITI/LOG(2I):55=2tP0O-1 
ı4858 FOR 1=PO TO 8 STEP-I1 

140808 IF A$(9,SS)<TI$ THEN SS=SS+2tl 
149798 IF A$(A,55>>T1$ THEN SS=SS-2tI 
ı149a8m IF SS<B THEN SS=A 

14898 IF SS>IT-1 THEN SS=IT-1 

1419A NEXT IEIF A$(B,SS)<TiI$ THEN SS=SS+ 
N 

14118 RETURN 


Ein Standardmodul für die binäre Suche. Da die Elemente nach Antwort sortiert 
werden und bei den Antworten das Zeichen für die Typengruppe vorangestellt ist, 
wird in Wirklichkeit zuerst nach Typ sortiert - Gruppen ohne Typangabe stehen 
als erstes in der Datei. 


MODUL 5.1.5 


1598988 REMIS 
15818 REM EINFUEGEN 

15828 REMIS Kakao 
15838 IF IT=8 THEN 15968 

15848 FOR 1=1T TO SS+t1 STEP -1 

159858 FOR J=8 TO 1:AS<J,TDD=AS$(CJ,I-1):NER 
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TJ,I 
159869 AS(CO,SSI=-TIEF:AF(L1,55)=-T2$:1IT=1ITrtl: 
RETURN 


Ein Standard-Einfügemodul. 
Testen der Moduln 5.1.1-5.1.5 


Nun sollte der Benutzer in der Lage sein, Daten einzugeben und sie nach Typ- 
nummer sortiert in den Hauptfeldern zu speichern. 


MODUL 5.1.6 


1988A REMERSKCK KK KR aaa aka aka aka aka ok 
19818 REM LADEN/SPE ICHERN 

19828 REMIS 
13838 PRINT "MBIBLAUIKASSETTE EINLEGEN, D 
ANN [REYERS EINJIRETURNILREYVERS AUSJI--" 
13048 INPUT "MOTOR HAELT AUTOMATISCH AN: 
"ZQ$S:POKE 192,7:POKE 1,39 

198858 PRINT "SIROTIMOEGLICHE BEFEHLE:":P 
RINT "EGRUEN] 12DATEN SPEICHERN",,," 2>D 
ATEN LADEN" 

13868 INPUT "TSCHWARZ IBEFEHL: "70:0ON Q GO 
TO 19078,1931398:RETURN 

13887a POKE 1,7:FOR 1=1 TO 2808:NEXT 
ı1sasa OPEN! ,1,2,"MULTIQ":PRINT#1,IT/R$7T 
Y 

1889A FOR I=8 TO TY:PRINT#1,DSCIIRSID(O 
‚TP>7RSEZDEL,II:NERT 

198188 FOR I=8 TO IT:PRINT#1,AS(8,1);7R$rnR 
$(1,ID):NEXT 

19118 PRINT#1,NASCOIFREINASCI) 

19128 CLOSE 1:RETURN 

13139 OPEN 1,1,8,"MULTIQ":INPUT#1,IT,TY 
ı1914a FOR I=8 TO TY: INPUT#1,DSC1I),D<i8,1DD 
‚D{1,ID:NEXT 

13158 FOR I=8 TO IT: INPUT#1,AS(CO,I>.,ASII 
‚I>:NEXT 

19168 INPUT#H1,NAS(CBI ,NASCI> 

19178 CLOSE 1:RETURN 
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Ein Standardmodul der Datendatei. 


MODUL 5.1.7 


16888 REMEBIEISISKROIO KO Rkkkkk 
16818 REM SUCHEN/LOESCHEN 

188204 REMIS RR Kara 
1sosa SS=& 

1608498 PRINT "\IEBBBEBEBBEREBBBBBBILFROTILRE 

VERS EINISUCHEN" 

16985d IF SS>IT-1 THEN S5S=IT-1 

isa6B IF 5SS<8 THEN S5=&A 

isa7a PRINT "IBRBRBRBBRERBRRRBBRBI GRUENIAN 

ERHL FRAGEN="ZIT 

160882 PRINT "MIBLAUIMOEGLICHE BEFEHLE!" 
169899 PRINT "BISCHWARZ I >EPURPURILREYERS 
EINIJRETURNI[REVERS AUSJI=WEITER ZUR NAECH 
STEN FRAGE" 

16188 PRINT "TSCHWARZ I >LPURPUR I1POS/NEG 

NUMMER UM DEN ZAEHLER ZU VER- AENDERN" 
16118 PRINT "I[SCHWARZI >IPURPUR]2'DDD'=LO 

ESCHEN DIESER FRAGE" B 

isi28 PRINT "ISCHWARZI >LPURPURI'ZZ2Z'=ZU 

RUECK ZUM MENUE " 

16138 FOR I=i TO 18 

16148 PRINT "IREVERS EINITBRAUN] 


"3:NEXT 
16158 PRINT "ITREVERS EINIITIDIITE INGABE 
NR:-"355+1:PRINT "[revers ein]"smid$ias$ 


8,552,2) 

16168 PRINT "MIREYERS EINJ"7ASC1,5SSI:PRI 
NT "BIREVERS EIN]I"F7DS(VAL(LEFTSCAFIO,SS? 
‚1239 

18178 Qls&="": INPUT "BIL SCHWARZ IBEFEHL : " 
»Qis 

16184 IF Qi$<>"DDDO" THEN 16218 

161938 D<a,TEMP>=D<C8,TEMPI-LI:FOR 1=5S TO 

IT-1:A&(9,1I3=A$(c0,1I+1) 

16288 AS&X1,12=A$C1,1I+H1):NEXKT 1:1IT=1IT-1:G 
OSUB 13168:G0T0 16A44 
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ı16218 IF Ql&="ZZ2" THEN RETURN 

18228 IF Ql$="" THEN SS=SS+1:G0OTO 16949 
162498 SS=SS+VAL\Q1ISI:IF SS<QA THEN SS=O 
16258 GOTO16848 


Ein direktes Benutzermodul für die Suche. 


MODUL 5.1.8 


17828 REMIS 
178108 REM ZUFRELLIGE FRAGEN GENERIEREN 
17828 REMMGGSKRRR 
17938 QU=&8 

ıraaa PRINT "IEBBEBRERRRRRBRBBBBILROTILRE 
VERS EINIFRAGEN" 

178509 PRINT "MSIBLAUIMOECHTEN SIE, DASS 
NUR ANTWORTEN AUS" 

17a68 INPUT "DEM GLEICHEN BEREICH WIE DI 
E FRAGEN ER- SCHEINEN <J/ND:"50$ 

17865 PRINT "3" 

ıi7878 IF Q$="J" THEN QU=l 

17888 Pi1=9:P2=IT:Q1=INTERND<B>KITI:Q2=IN 
TXRNDIB8)x52:0Q0293=Q1 

ıirasa IF QU=8 OR DB ,VAL<LEFTECASCA,QI), 
1339<X5 THEN 17118 

17180 Pi=D<1,VAL<LEFTFCAFCOH,Q1>3, 1339): P2= 
D<B,VAL<SLEFTESCAFCN, AL, 12) 

17118 FOR I=8 TO 4:IF 1=Q2 THEN 17158 
171298 PP=P1+INTERNDCOIKP2): IF PP=9<kaQ2) T 
HEN 17128 

17138 FOR J=8 TO I:IF PP=@<J> THEN 17128 
171408 NEXT J:QCI)2=PP 

17150 NEXT I 

17168 PRINT "IBIILBLAUIJ">NASC1)YF":LGRUEN] 
"HASCL,Q<Q2I) 

1717@ PRINT "IBBEISLPURPUR I "7NAS(OIF":LBR 
AUN]I" 

171828 FOR 1=8 TO 4:PRINT I+15") "7MIDSC 
ASCO,QCIII,2I:NERT 

17194 PRINT "MIROTIWELCHE IST IHRER MEIN 
UNG NACH DIE RICH- TIGE ANTWORT 7?" 
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172aAn PRINT "WMIORANGEITIPPEN SIE DIE ENT 
SPRECHENDE NUMMER EIN: "=: INPUT AA:GT=QT+1 
ır21a IF AA-1=Q2 THEN 17259 

17228 PRINT "MISCHWARZ IFALSCH ! DIE RICH 
TIGE ANTWORT IST?" 

17238 PRINT MIDE(A$(B,0(Q02)),29:G0OT0O 172 
78 

ı724a POKE 53281,8 

17258 PRINT "JISCHWARZ TBB" : FOR I=1 T 

O 11:PRINT " RICHTIG!":NE 
KT 

17268 FOR I=1 TO 15:POKE 53281,1I:FOR J=i 
TO 288:NEXT J,I:RR=RR+1 

17278 PRINT "BIBLAUITREYERS EINIRETURNER 

EVERS AUSJ FUER EINE NEUE FRAGE ODER 'Z2 
ZrN 

17288 Q$&="":1INPUT "UM INS MENUE ZURUECKZ 
UKEHREN: "7Q&$: IF Q#="ZZZ2" THEN RETURN 
i729@a PRINT "Q"7:G0TC 17289 


Hier handelt es sich in Wirklichkeit um das einzige Originalmodul in dem Pro- 
gramm. Es soll eine zufällige Frage generieren, fünf mögliche Antworten auf dem 
Bildschirm anzeigen und eine Eingabe vom Benutzer akzeptieren, mit der die 
richtige Antwort - oder zumindest ein Versuch der richtigen Anwort - angegeben 
wird. 


Kommentar 


Zeilen 17050-17070: Mit dieser Routine wird die Schwierigkeit des Tests festge- 
legt. Mögliche Antworten können aus der gesamten Datei genommen werden. In 
diesem Fall sind viele der Antworten wahrscheinlich nicht richtig und machen die 
Auswahl der richtigen Antwort wesentlich einfacher. Alternativ können die Ant- 
worten nur aus derselben Typgruppe genommen werden, wodurch die Aufgabe 
wesentlich schwieriger wird, da sämtliche Antworten zumindest als möglich er- 
scheinen. 


Zeile 17080: Eine zufällige Frage wird aus der Datei genommen und eine zufällige 
Position für die Positionsnummer des Feldes Q gewählt. 


Zeilen 17090-17100: Ist QU gleich Null oder stehen keine fünf Antworten in der 
Typgruppe, so entspricht der Bereich der möglichen Alternativantworten der ge- 
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samten Datei P1-P2. Ist QU gleich Eins und stehen mindestens fünf Antworten 
als richtige Antwort in derselben Gruppe, so werden P1 und P2 an den Anfang 
bzw. das Ende dieser Gruppe zurückgesetzt. 


Zeilen 17110-17150: Vier zufällige Antworten werden aus dem Bereich gewählt, 
der von Pi und P2 festgelegt wird. Außerdem wird geprüft, ob die zufällig ausge- 
wählte Anwort nicht der richtigen Antwort oder einer vorher ausgewählten zufälli- 
gen Antwort entspricht. 


Zeilen 17160-17200: Die Frage wird zusammen mit den fünf möglichen Antworten 
ausgedruckt. Der Benutzer muß angeben, welche Antwort richtig ist. Die Variable 
GT, in der die Gesamtanzahl von Fragen festgehalten wird, wird erhöht. 


Zeilen 17240-17260: Der Benutzer wird durch eine mehfach wechselnde Hinter- 
grundfarbe belohnt. Die Variable RR wird erhöht. 


Testen von Modul 5.1.8 


Müssen einige Daten neu geladen werden, so sollte es nun möglich sein, eigene 
Tests mit mehreren Auswahlmöglichkeiten zu generieren. Der Benutzer kann die 
schwierigere Form des Tests hier nur generieren, wenn er ausreichend Daten 
eingegeben hat, mit denen das Programm ständig fünf Antworten desselben 
Typs anbieten kann. 


MODUL 5.1.9 


18008 REMESROKSCK KK KK KK a Ra ık 
180818 REM PUNKTZAHL 

18OZE REM ak a ak am ak ak ak akc ae ale ak ak cafe ak aka ak ak aka ak ak ak ak ak 
180308 PRINT "\IEBPRRRBERBBBIROTILREVERS 
EINIPUNKTZAHL":IF QT=8 THEN RETURN 
18@42A PRINT "MSILGRUENIANZAHL FRAGEN 


U"zQT 
18a5@ PRINT "WRICHTIGE ANTWORTEN: "RR 
188608 PRINT "MLBLAUJPUNKTZAHL a" 


FINTECERR-QOT/SI/LOTRK.EI) IK 1OO) 5 "7" 

18870 PRINT"BISCHWÄARZ IMOECHTEN SIE DIE P 
UNKTZAHL AUF 8 ZU-":INPUT"RUECKSETZEN &J 
NMD:"3Q35 

ısasa IF Q#="J" THEN QT=d:RR=8 

13994 RETURN 
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In diesem Modul wird die Punktzahl anhand der Tatsache berechnet, daß nur eine 
von fünf Antworten richtig sein kann, wenn die Antworten nur zufällig gewählt 
wurden. 


Zusammenfassung 


Dies ist ein recht leistungsfähiges Programm. Dies gilt jedoch nur, wenn der Be- 
nutzer genügend Daten eingibt, um dieses Programm voll ausschöpfen zu kön- 
nen. Aus diesem Programm wird wieder deutlich, daß der Benutzer, wenn er 
schon ein komplexes Programm schreibt, auch ein wenig weiter gehen und ein 
Mehrzweckprogramm schreiben kann, mit dem er sich in Zukunft sehr viel Arbeit 
spart. 


Ein Schritt weiter 


1. In seiner momentanen Form prüft das Programm, ob dieselbe Antwort nicht 
zwei Mal für eine Frage angezeigt wird. Es prüft jedoch nicht, ob zwei verschiede- 
ne Antworten in Wirklichkeit identisch sein könnten. Hier könnte eine entspre- 
chende Prüfung eingesetzt werden. 

2. Die Frage einer Belohnung bei erfolgreicher Ausführung ist besonders inter- 
essant - Erwachsene scheinen schon den Erfolg als Belohnung beim Spiel mit 
diesem Programm - oder besser: bei Benutzung desselben - zu betrachten. Bei 
Kindern sind jedoch alle Arten von Belohnung möglich. Wie wäre es mit einem 
kleinen Spiel in dem Programm, das nur drei Minuten lang ist oder nach richtiger 
Beantwortung einer Reihe von Fragen werden kann. 


5.2 WORDS 


Sobald man ein einwandfrei arbeitendes Programm hat, wird man feststellen, daß 
es auch anderweitig benutzt werden kann. So war es bei MultiQ. Das Ergebnis 
war das vorliegende Programm, das als spielerische Wort-Lernhilfe für Kinder be- 
nutzt werden kann, die erst mit dem Lesen beginnen. Der einzige wirkliche Unter- 
schied zwischen diesem Programm und MultiQ besteht darin, daß die Fragen die 
Form von Bildern angezeigt werden und die Antworten Wörter darstellen, die zu 
den Bildern passen. 

Was die Bilder selbst betrifft, so stammen sie aus einem anderen Programm in 
diesem Buch, nämlich Artist, das von Band gelesen und in das Verzeichnis dieses 
Programms geladen wurde. Die Kapazität des Programms, wie hier dargestellt, 
umfaßt 50 Bilder. Allerdings kann gegebenenfalls noch eine weitere Gruppe von 
Bildern von Band gelesen werden. Bilder, die von diesem Programm benutzt wer- 
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den sollen, dürfen nur die untersten zehn Zeilen des Bildschirms belegen, da der 
obere Teil des Bildschirms für die Fragen und Eingabeaufforderungen benötigt 
wird. 


Words: Variablentabelle 


A% Speichert Daten für Bildzeichen und Farben. 

B% Koordinaten der Ecken des Bildes. 

FNA(SS) Wert des Elementes in A, dessen Position durch die Position der Ecken 
des Bildes bestimmt wird. 

FNB(SS) Tatsächlicher Zeichencode, der aus FNA abgeleitet wurde. 

ww$ Eingabe der Antwort auf den Frage-Modul. 

MODUL 5.2.1 


112@a9 REMIS A KARO 
119818 REM MENUE 
11220 REMAKE 
11239 POKE 53281,15:PRINT "LSILBLAUIIRBRBI 
TIREVYERS EINJWORDS" 
119848 FRINT "SMOEGLICHE BEFEHLE:" 
11352@ PRINT "9 [GRAU 2ZI12NEUE OBJEKTE EI 
NGSESBEN" 
IgER PRINT " 2ISUCHEN/LOESCHEN” 
11878 PRINT " 3>FRAGEN GENERIEREN" 
11a8& PRINT " 4>FUMKTZAHL ANZEIGEN CDER 
LOESCHEN" 
1199E PRINT " S>LADEN/SPEICHERN" 
111898 FRINT " 63 INITIALISIEREN" 
i1lllea PRINT " TIBEENDEN" 
1il28 INPUT "BIIHELLBLAUIBEFEHL: "7Z:PRINT 
"on; 
11128 CN Z GOSUB 13004, 15aa9,160094,172808 
‚18800,12008, 4 1149:G0TO 11048 
11142 PRINT "WEBLAU )J REReIeIetaTeTeieTeiege 
[REVERS EINIE N DE” LEND 





Ein Standard-Menümodul. 
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MODUL 5.2.2 


12REB REPRFFREKRERKERKEHT EEK EEK KH 
12619 REM IMITIALISIEREN 

122820 REITER 
12839 CLR:DIM QX493,R8(43) ,RA47449,255)9,BRA 
43,49: 1 T=S0:R$=SCHRSK 13) 

1ea40 SOTO 11008 

12ES58 GOTOC 11292 


Initialisierung der Hauptvariablen. 


MODUL 5.2.3 


15299 REMHESGRR 

132108 REM NEUE OBJEKTE EINGEBEN 

123028 REMAKE 

13839 PRINT"ÜEISLAUIERBRBRBBBRBILREVERS E 
ININEUE OBJEKTE" 

i1seg4a IF IT>=194 THEN PRINT "BIROTIKEIN 

FLATZ MEHR.":FOR I=1 TO 20889:NEXT:RETURN 


13259 IMPUT "BIBLAUIKASSETTE EINLEGEN, D 
ANN EREVYERS EINJIRETURNLREVERS AUS1J:"7Q08 
1385@a PRINT "W":CüPEN 1,1,8,"ARTIST":FOR 
I=s8 TO 4: INPUT$R1,BACIT,ID:NEXT 

13079 FOR I=8 TO BACIT,43-1:INPUT#1,C1,C 


[= 


1sa80 AKIIT,II=S2I64C1+C2-32767:NEXT I:CL 
OSE1:55=IT 
139894 PRINT "W"7:GOSUB 14000 
13188 INPUT "SIBLAUIKORREKT SJ-TD:"r7Q8$11 
F QO$="N" THEN RETURN 
13118@ INPUT "ZUM BILD PASSENDES WORT: "FW 
$ 
siegt INPUT "EINGSABE RICHTIG (JND:"7Q8#: 
IF G$="N" THEN 13938 
1313E AFUITI=SWEIITSITH1 
131438 INPUT "NOCH EIN BILD (J/ND:E"FQSEIIF 
Q#="1" THEN 139844 
13130 RETURN 
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Dieses Modul liest die von Artist erstellten Bilder von Band, so daß der Benutzer 
den Bildern das richtige Wort zuordnen kann. 


MODUL 5.2.4 


142828 REMOTE KK 
14010 REM BILD DARSTELLEN 

14928 REMKRKEAFRFREHIIIIEIIIROIOOIOKKK IK 
148350 FP=SE:FGR I=BH(55,1)+1 TO BAISS,3)?- 
1 

14942 FOR I=BH(55,08)+1 TO BR(SS,2)-1 
14259 FP=PP+1:T1=AX4XS5,PP)+32767:POKE 18 
24+42+1+J,INTITI1.2I6) 

1486508 POKES5S52I6+49%41+J,T1-2564INTCT1-256 
J:MEHTOJ.TI 

ı1aara RETURN 


Dieses Modul benutzt die beiden definierten Funktionen, um die richtigen Zei- 
chen und Farben aus den numerischen Werten auszugeben, die von Artist gesi- 
chert wurden, und diese mit POKE auf den Bildschirm und in den Farbspeicher zu 
setzen. 


Kommentar 


Zeile 14030: BY (SS,1) und BY(SS,3) zeichnen die vertikalen Koordinaten der 
oberen linken und unteren rechten Ecke des Bildes auf. 


Zeile 14040: B% (SS,0) und BY (SS,2) zeichnen die horizontalen Koordinaten der- 
selben Ecken auf. 


Testen der Moduln 5.2.1-5.2.4 


Der Benutzer sollte die von Artist erstellten Bilder laden können, sie auf dem Bild- 
schirm ausdrucken und in die Hauptmatrix laden, wobei sie mit dem als Antwort 
ausgewählten Wort verknüpft werden. 


MODUL 5.2.5 


1890280 FEMRSCHFEEOOIOIIIIIIIOIIOE 
18819 REM LADEN.SPEICHERN 

ISEZO REMERRKEFTIIKIIIIEKFIOOIKEKEEE 
189838 PRINT "SIBLAUIKASSETTE EINLEGEN DA 
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NN TREVYERS EINJIRETURNEREVERS AUSI--" 
jea4a INPUT "MOTOR HAEI.T AUTOMATISCH AN: 
"FGE:POKE 187.7:FOKE 1,39 

180859 FRINT "BIROTIMOEGLICHE BEFEHLE:":P 
RINT "TGRUENJ 13>DATEN SPEICHERN" 

18855 PRINT "2>DATEN LADEN" 

1EB86E8 INFUT "TSCHWARZ JIBEFEHL: "Q:ON Q GO 
T0 18978,15138:RETURN 

isarg FükeE 1,7T:FOR Ist TO ZEGO:NERT 
18E38 GFENIL,1,1,"WORDS":PRINT#HI1,IT 

18430 FOR I=sda TO IT-1:PRINTRI,ASCDISREFB 
A1I,S) 

ısıaa FOR J=sa TO BACI,42-1°PRINT#HI,AZCIL, 
MDINEXT J 

1eilß FOR J=sa TO 3:PRINTBI,BACI,JI:NEKT 
J,I 

18128 CLOSEI1:RETURN 

18132 OPENI1,1,8, "WORDS": INPUT#L,IT 

1eE14E8 FCR Isa TO IT-1:INPUTHI,AFCII . EMEI 
‚4 

151520 FOR J=a TO BAC1l,43-1: INFUTHRI,AZCI, 
IIENEXT J 

1S5i6E FOR J=B TG 5: IMPUTHL,BAUI,JIENEXT 
J,1I 

185178 CLCGSEI:RETURN 


Ein Standardmodul der Datendatei. 


MODUL 5.2.6 


150898 REEBOK RK ok 
15919 REM SUCHEN/LOESCHEN 

15020 REMCKRGRkakakk 
158328 SS=B:IF IT=@ THEN RETURN 

15SB5E PRINT "ERBRPREREBEBBILROTILREVERS 
EIMISUCHEN" 

15858 IF SS}:IT-1 THEN SS=IT-1 

ı1Sas8 IF 5S<d THEN 55=0 

ISeErE PRINT " RD 
GRUENIITEMS="FIT 

15984 PRINT "ITBLAUIMGEGLICHE BEFEHLE: " 
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15832 PRINT "SC5SCHWARZ I] >EPURPURITREVERS 
EINJRETURNIREVYERS AUSI FUER NAECHSTES O 

BJEKT." 

1S168 PRINT "LESCHWARZI >LPURFURIPOS/NEG 

NUMMER UM DEN ZAEHLER ZU WER- AENDERN" 


15118 PRINT "ESCHWARZI >IPURPURI'DOD' UM 
DAS OBJEKT ZU LOESCHEN" 

15122 PRINT "LTSCHWARZ I >IPURPURI'ZZZ' UM 
INS MENLUE ZURUECKZUKEHREN" 

15130 PRINT "WET GRUENJ"FASCSSI:TGOSUB 14 

290 

1514a QE="": INPUT "SIESCHRLARZ I Miele 

FEHL: "7Q0$ 

15159 IF Q$<>"DODD" THEN 15198 

1S168 FOR 1=55 TO IT-1:FOR J=sa TO 255: 
<1,J3=AACIr1,JI:NEXT I,1 

15178 FOR 1=55 TO IT-1:AF(CII=SASCIFII:FOR 

J=a TO 4:B%C1,13=BACI+1,JI:NEKT J,1 

15188 IT=IT-1:60T0 15940 

1519B IF Q$="22Z2" THEN RETURN 

ı1s2ag IF QR&="" THEN SS=SS+1:G0TO 15940 

15210 SS=5S+VAL(QSI:GOTO 15a4d 

15228 GOTO 15228 





Ein einfaches Benutzermodul zur Suche. 
MODUL 5.2.7 


159988 REMESO IRRE 
16918 REM ZUFRAELLIGE FRAGEN 

1E8289 REMIS KK 
152M239 QL=INTCRND“EIKIT):N2=INT{IRND«(9)45) 
"a<cQz>’=Ql 

isa4g FOR I=a TO 4:IF I=Q2 THEN 16990 
168508 PP=INT{RNDSOIKIT) 

ıi6aS5a IF FP=Q1 THEN 16954 

18870 FÜR J=8 TO I1:IF PP=Q\J> THENIEBS® 
1E988 NEXT I:nCI>=PP 

16899 NEXT I 

I18618m 55=-Q1:PRINT "J":GOsUB 14000 
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1811@ PRINT "SIGRUEN]"F:FOR I=8 TO 4:PRI 
NT "MT TASCRLIII:ENEXT 

i812A PRINT "MIBLAUITIPPEN SIE DAS RICHT 
IGE WORT FUER DAS": INPUT"BILD:"HWWETAT=Q 

T+l 

16138 IF WIaB<>ASCQL) THEN PRINT "FALSCH! 
DIE ANTWORT IST [GRUEN]"FASCQL):GOTO 16 
169 

18149 PRINT "MISCHWARZ IRICHTIG [WEISSIRI 

CHTIG [ROTIRICHTIGLCYANI RICHTIGLPURPUR]I 
RICHTIG" :RR=RR+1 

16158 FOR 1=8 TO 15:POKE 53281,1I:FOR J=1 
TO I1S9:NEXT J,I 

18186@ INPUT "LGRUENJWEITER INDIE" FOSEIF 
Q$="J" THEN 16909 

16178 RETURN 


Dieses Modul entspricht dem Generator für zufällige Fragen bei MultiQ, ist je- 
doch in sofern einfacher, als es stets mögliche Antworten aus der gesamten Da- 


tei mit Elementen wählt. 


MODUL 5.2.8 


17809 REMIS k 
i7a1d REM PUNKTZAHL 

17a2E REMIKaRKOR AK 
17638 IF QT=8 THEN RETURN 

17848 PRINT "JRERBEESELROTILREVE 
RS EINISCORE" 

17985@ PRINT "BBSIGRUENIANZAHL FRAGEN 2 
‚oT 

Irasa PRINT "WRICHTIGE ANTWORTEN: "FRR 
17878 PRINT "BIBLAUIFPUNKTZAHL un: 
INTSKCERR-OTFFI FETTE EI IRLBAI FT" 

178309 PRINT "BISCHWARZ IMOECHTEN SIE DIE 
FUNKTZAHL LOESCHEN": INFUT"CTZNIE" OS 
17898 IF Q&="J]" THEN QT=Ee:RR=d 

17168& RETURN 


Dieselbe Funktion wie das Modul für die Punktzahl in MultiQ. 
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Zusammenfassung 


Auch hier handelt es sich um ein Programm, das etwas arbeitsaufwendig ist, 
wenn es von Nutzen sein soll, da das Erstellen der vielen kleinen Bilder für dieses 
Programm, einige Zeit in Anspruch nimmt. Eine einfache Antwort bestünde darin, 
sich mit anderen Commodore 64 Benutzern zusammenzutun und Bänder mit Bil- 
dern auszutauschen. Die Arbeit mit Mikrocomputern braucht niemanden vom 
Rest der Welt zu isolieren. 


Ein Schritt weiter 


Die Frage der Belohnung wird bei diesem Programm noch interessanter - hier 
sollte man sich vielleicht Gedanken machen, auf welche Weise eine richtige Ant- 
wort belohnt werden kann. 


5.3 TYPIST 


Nicht alle Lernfragen beziehen sich auf die Verarbeitung komplexer Daten. Ganz 
wichtige Lernvorgänge bestehen in der Einstudierung von Antworten. Und auf 
diesem Gebiet sind Computer ganz besonders leistungsfähig. Deshalb beginnen 
Piloten, Kapitäne und ähnliche Berufsgruppen ihre Ausbildung vor Simulatoren 
und nicht mit der teuren und gefahrvollen Realität. Dieses Programm kann nicht 
ganz mit einem Simulator verglichen werden, ist jedoch dennoch ein überaus lei- 
stungsfähiges Lernmittel. 

Von allen Programmen, die ich geschrieben habe, ist dies eines meiner liebsten. 
Die Tatsache, daß es hier vorgestellt wird, beweist, daß ein Programm nicht lang 
zu sein braucht, um nützlich zu sein. Dieses Programm ist kurz, klar und gut in 
dem, was es vermittelt. Es hat mir übrigens dabei geholfen, mein Zwei-Finger-Sy- 
stem beim Tippen zu verbessern. Von allen Versionen, die geschrieben wurden, 
ist die Version des C64 bei weitem die beste, so daß ich hoffe, daß Sie es in Ihre 
Programmsammlung aufnehmen werden. 


Typist: Variablentabelle 


c$ Zeile mit Leerzeichen, mit der Textzeilen gelöscht werden können. 
CH Anzahl von bis jetzt in den Tests vorhandenen Zeichen. 

RIGHT Anzahl richtiger Zeichen. 

SUM Anzahl eingegebener Zeichen. 

TI Systemvariable, die die abgelaufene Zeit in 60stel Sekunden zählt. 
TT$ Temporärer Speicher für die in Anspruch genommene Zeit. 
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MODUL 5.3.1 


119888 REMIS OR 
119812 REM TASTATUR ZEICHNEN 

11928 REICHE RICK 
11osa FGKE S3251,6 

11242 PRINT "SISLSCHWAÄRZ ] era 


n 
Bene as Sa ash Fer re RB ran Er 8 


112ER As="+1234567890+-£" 

110869 PRINT " "::FOR I=1 TO 14:PRINT 
"TREWERS EINILSCHWARZI [WEISSILREVERS Au 
SI" FMIDSLAS,I,1)37:NEXT 

1197& PRINT "LREVERS EINIITSCHWARZI [WEIS 
SICLSCHWÄRZI IWEISSIDLSCHWARZI LWEISSILR 
EVERS AUSI" 

11986 PRINT " [SCHWARZ ILREVERS EIN] 
1108939 A$="QWERTYUIOPEKt" 

11190 PRINT " [REVERS EIN]J [WEISSICCL 
REVERS AUSI"Z:FOR I=1 TO LEN{ASI:TPRINT " 
[SCHWARZ ILREWERS EIN] LREVERS AUSILWEISS 
1":MIDSCA$,I,1)7:NEXT 

1l11d PRINT "[REVERS EINILSCHWARZI [WEIS 
SIRRISCHWARZI IWEISSILREVERS AUS]" 

1il28 PRINT " [SCHWARZ ILREVERS EIN] 
11139 A&="ASDFGHJKL:I:=" 

11140 PRINT " [REYERS EIN]I [WEISSIRLSC 
HWARZI I[WEISSISIREVERS AUS"; 

11158 FOR I=i TO LEN(AS)I:FRINT "LSCHWARZ 
ILREYERS EIN] [REYERS AUSILWEISSI"?MIDS< 
A&,I,1D: NEST 

11160 FRINT "LREYERS EINILSCHWARZI IWEIS 
SIRRISCHWARZI LWEISSILREVERS AUS]I" 

1117 A&="ZECVBNM,.7" 

11188 PRINT " [SCHWARZ JLREVERS EIN] 
11190 PRINT " [REYERS EINILSCHWARZI IW 
EISSIRISCHWARZI IWEISSISHLISCHWARZI LREYE 
RS AUS1": 
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11209 FOR I=1 TO LEN(AS$I:FRINT "TSCHWARZ 
JE[REYERS EIN] [REVERS AUSILWEISSI">MIDEX 
AS.I,127:NEXT 

11218 PRINT "IREYERS EINIITSCHWARZI IWEIS 
SISHLISCHWARZI IWEISSITFEISCHWARZI [TWEISSIT 
[SCHWARZ I " 


11228 PRINT " [SCHWARZ IIREVERS EIN] 
112328 PRINT " ESCHWARZ IIREVERS EIN] 
[WEISS] ESCHWARZ ] 


Dieses Modul soll ganz einfach eine simple Kopie der Tastatur des C64 auf dem 
Bildschirm ausdrucken. Auf diese Weise kann der Benutzer den Bildschirm be- 
trachten und braucht nicht auf die Tastatur zu sehen, wenn er eine Eingabe vor- 
nimmt. 


Kommentar 


Zeilen 11050-11070: Dieser Abschnitt druckt wie die folgenden Abschnitte die 
unregelmäßigen Enden der Tastatur aus (wie beispielsweise die RETURN- und 
RESTORE-Tasten), die das gleichmäßige Muster stören. Danach wird eine Zeile 
mit schwarzen inversen Leerzeichen ausgedruckt. Über diese Zeile werden dann 
die Namen der alphanumerischen Tasten an den entsprechenden Stellen gesetzt. 
Unter der Tastenzeile wird dann eine schwarze inverse Zeile angezeigt. 


Testen von Modul 5.3.1 


Mit dem Modul sollte eine Kopie der Tastatur in der oberen Hälfte des Bildschirms 
ausgedruckt werden. 


MODUL 5.3.2 


128208 REMAKE 
1ZEBiIE REM EINGABE 

12822 REMIS 
129834 SUM=B:CH=8:RIGHT=B:RESTORE: TT$="08 
Bean" 

128948 CH=" 


12852 REARD A$:IF A$s="STOP" THEN GOTO 128 
38 
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1208608 PRINT SLAIRTRISTEDEIRTR 
12870 FOR LINE=1 TO 3:PRINT C$7 :NEXT:PRI 
NT "ODOD" 

125608 IF LEN(A#)>33 THEN PRINT "STRING Z 
U LANG" :STOP 

12090 PRINT "LSCHWARZI"SAF:PRINT "DIWEIS 
SILREVERS EINI"F:FOR I=1 TO LEN{A$) 
12188 GET T$:IF T#="" THEN 12188 

12118 IF T#="Q" OR T$="M" OR T#="W" OR T 
$="' OR T$=CHR$(13) THEN GOTO 12108 
12128 IF I=1 THEN TI#=TT$ 

12138 SUM=SUM+1:PRINT T#3" |": 

12140 IF TS<>MIDE(AS,IT,1) THEN PRINT "+M 
"}:G0T0 12198 

1215@ RIGHT=RIGHT+1:NEXT I:PRINT "IREVER 
5 AUSI":CH=CH+LEN(AF):TTE=TIS$ 

12168 PRINT "Bla" :STRECINTCRIGHT/SUM«1DO 
BB2z lad" 

12170 PRINT STR$(INT(SUM/(TI/6000))/100) 
zu cps 

12188 INPUT "WEITER (J/ND: "70% 

12190 POKE 780,8:POKE 781,21:POKE 782,0: 
SYS 65520: FRINT CH 

12208 IF Q#<>"N" THEN 12058 

12218 END 





Dieses Modul druckt eine zu kopierende Textzeile aus. Danach wird eine Taste 
für Taste vorgenommene Eingabe akzeptiert, wobei die benötigte Zeit und die Er- 
folgsrate verfolgt und Fehler angegeben werden. 


Kommentar 


Zeile 12050: Der zu kopierende Text wird in DATA-Anweisungen am Ende des 
Programms gespeichert. Diese DATA-Anweisungen müssen mit einer Zeile 
beendet werden, in der einfach STOP steht, wie in den angegebenen Beispielzei- 
len. Dadurch beginnt das Programm erneut mit dem Lesen. 


Zeilen 12060-12090: Diese Zeilen benutzen die Folge mit Leerzeichen (C$), um 
den Bereich zu löschen, in dem Text ausgedruckt werden muß, den Text auszu- 
drucken und die Druckposition nach unten zu verschieben, damit die Eingabe auf 
der nächsten Zeile aufgenommen werden kann. 
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Zeile 12110: Die Cursortasten werden nicht als Eingabe akzeptiert. 


Zeile 12120: Das Programm verfolgt die Zeit, die für die Eingabe des Textes benö- 
tigt wird. Die Zeitzählung beginnt jedoch erst, nachdem der erste Buchstabe je- 
der Zeile eingegeben wurde, und wird zwischen den Zeilen eingestellt. Die ganze 
bislang in Anspruch genommene Zeit wird in TT$ gespeichert, auf das TI$ (siehe 
letztes Programm) am Anfang jeder Zeile gesetzt wird. 


Zeilen 12130-1250: Der letzte eingegebene Buchstabe wird ausgedruckt. Ist er 
falsch, so wird dies durch eine Fehlermeldung angegeben und die Druckposition 
wieder auf diesen Punkt zurückgesetzt. Die Gesamtanzahl von betätigten Tasten 
und die Anzahl von richtig betätigten Tasten werden aufgezeichnet. 

Zeilen 12160-12180: Bei Beendigung der Zeile wird die prozentuale Erfolgsrate 
angezeigt. Die Systemvariable TI, in der derselbe Wert wie in TI$ gespeichert wird, 
die jedoch in 60stel Sekunden ausgedrückt wird, wird zur Berechnung der Anzahl 
von pro Sekunde eingegebenen Zeichen benutzt. Diese scheinbar schwierige 
Formel gewährleistet, daß zwei Dezimalstellen normal ausgedruckt werden. 


Zeile 12190: Diese Zeile zeigt eine andere Methode, mit der die Position festge- 
legt werden kann, bei der das nächste Zeichen ausgedruckt werden soll. Um die- 
se Methode zu benutzen, muß Null mit POKE in Adresse 780, die Zeilenposition in 
Adresse 781 und die Spaltenposition in 782 gesetzt werden. Wird die ROM-Routi- 
ne bei 65520 aufgerufen, so wird die Druckposition an diese Stelle bewegt. Mit 
dieser Methode können Zeichenfolgen ersetzt werden, die Cursor-Steuerzei- 
chen enthalten. Hier wird mit dieser Methode einfach festgelegt, daß über die Ein- 
gabeaufforderung 'WEITER’ eine Zeile mit Leerzeichen gedruckt wird, sobald das 
Programm fortgesetzt wird. 


Testen von Modul 5.3.2 


Dieses Modul kann erst getestet werden, nachdem Daten eingegeben wurden, 
die das Programm lesen kann. Zu diesem Zweck wird ein anderes Modul mit dem 
Übungstext bei Adresse 13000 eingegeben, das Modul mit einer Datenzeile 
beendet, in der STOP steht, und das Programm ausgeführt. Danach sollte die er- 
ste gespeicherte Textzeile angezeigt und wie in den Kommentaren beschrieben 
getestet werden. 
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BEISPIEL FÜR EINEN ÜBUNGSTEXT 


13380 REMH SSR ak 
13018 REM DATEN FUER DIE TESTS 

13928 REMAKE RR 
ı1sea3a DATA "ASDF :LKJ ASDF :LKJ ASDF ZLK 
IRS" 

123940 DATA "ASODF :LKJ ASDF :LKJ ASDF FALK 
JRAS" 

139856 DATA "A AD ADD ADDS7 ASK LAD ALL F 
ALLS" 

13860 DATA "A AD ADD ADDS? ASK LAD ALL F 
ALLS" 

13872 DATA "A AD ADD ADOS; ASK LAD ALL F 
ALLS" 

13888 DATA STOP 


Zusammenfassung 


Hier handelt es sich um ein Programm, das nur eingesetzt werden kann, wenn es 
ernsthaft benutzt wird. Am besten nutzt man dieses Programm, indem man ein 
Buch mit Schreibübungen nimmt und dieses Buch als Grundlage für die eingege- 
benen Daten benutzt. Nachdem Sie sich dieser Mühe unterzogen haben, werden 
Sie feststellen, daß es sich hier um ein wirksames Hilfsmittel handelt, mit dem die 
Fähigkeiten des Maschineschreibens wesentlich verbessert werden. 


Ein Schritt weiter 


Die richtige Technik beim Maschineschreiben hängt davon ab, ob der richtige 
Finger für die jeweilige Taste benutzt wird. Bei einem derartigen Lernmittel sollten 
einfach die Tasten auf der Tastatur farbig merkiert werden, um anzugeben, wel- 
cher Finger benutzt werden soll. Schließlich wäre es eine gute Ubung, Farbeigen- 
schaften innerhalb einer Zeichenfolge zu benutzen. 
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KAPITEL 6 


HOCHENTWICKELTE FINANZFUNKTIONEN MIT 
MIKROCOMPUTERN 


Trotz der Witze über die Gasrechnungen in Höhe von einer Million DM können 
Computer Finanzinformationen besonders gut verarbeiten. Dies ist nicht nur auf 
die Tatsache zurückzuführen, daß sie die Daten so viel schneller als ein Mensch 
speichern und verarbeiten können, sondern auch auf ihre Fähigkeit, die Fakten 
auf klare und verständliche Weise darzulegen. In diesem Kapitel werden drei Fi- 
nanzprogramme vorgestellt, die die Rechenmöglichkeiten des Commodore 64 
und seine flexiblen Funktionen zur Bildschirmverarbeitung benutzen, um den 
Zahlen etwas von ihrem Geheimnis zu nehmen. 


6.1 BANKER 


Unser erstes Programm ist Banker, ein einfaches Hilfsmittel, mit dem der Status 
eines Bankkontos verfolgt werden kann, bevor der gefürchtete Umschlag von der 
Bank im Briefkasten liegt. Das Programm befaßt sich mit Abbuchungen und Ein- 
gängen, Daueraufträgen und Einzelpositionen, wobei ein klar formatierter Auszug 
für jeden gewünschten Monat erzeugt wird. Im Laufe des Programms werden Sie 
auf einige der Probleme stoßen, die bei der Aufstellung numerischer Daten in ver- 
ständlicher Form auf dem Bildschirm auftreten. 


Banker: Variablentabelle 


A(99,1) Speicherung der Zahlungsbeträge und des Zahlungsdatums. 

A$(99,1) Speicherung der Zahlungsnamen und Monate, in denen die Zahlung vor- 
genommen werden muß. 

CD Flag, mit dem angegeben wird, ob es sich um eine Haben- oder Sollzah- 
lung handelt. 

CR$ Separator für Datendateien. 

IN Initialisierungs-Flag. 

M Monats-Nummer minus 1. 

MM Temporäre Variable, die bei der Formatierung von Zahlungsbeträgen be- 
nutzt wird. 

MM$ Wird zur Aufnahme des formatierten Zahlungsbetrages benutzt. 

MO$ Speicher der Monatsnamen. 

PA Anzahl gespeicherter Zahlungen. 
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R$ Temporäre Zeichenfolge, in der die Monate gespeichert werden, in denen 
eine Zahlung vorgenommen werden muß. 

S Temporärer Speicher für den Zahlungstag in dem angegebenen Monat. 

SUM Wird zur Kumulierung von Beträgen für die Gesamtsumme in dem Konto- 
auszug benutzt. 


MODUL 6.1.1 


119824 RER ak 

11818 REM MENUE 

11825 REM KK 

11838 POKE 53281,7:PRINT "LIERRBRBBRBBBE 
[REYERS EINJI[ROTIBANKERLREVERS EINII 

BLAUI" 

11242 PRINT "IIEMICEGLICHE BEFEHLE:" 

11859 FRINT "'q I>NEUE ZAHLUNGEN" 

11859 PRINT "X ZIRENDIERN/LOESCHEN VON 

DATEN" 

11878 PRINT "MN S3>KONTORUSZUG AUSGEBEN" 


11888 PRINT "A 4>LADEN/SPE ICHERN" 
11898 PRINT "MA SI INITIALISIEREN" 

ıi1lao PRINT "A S?BEENDEN" 

111l1e INPUT "BILSCHWARZ IBEFEHL: "7Z:PRINT 
"a": 

11i2e8 IF Z=5 OR Z=6 OR IN=1 THEN 11148 

11139 PRINT’ EBERIPERSENOCH NICHT I 

NITIALISIERT." 

11135 FOR I=1 TO 28088:NEXT:GOTO 11808 

11148 IF PA<>O OR SZs>2 AND Z<>3> THEN 1 
1168 

11150 PRINT " Eee NOCH KEINE DAT 

EN VORHANDEN. " 

11155 FGR I=1 TO ZOQG:NEXT:GOTO 11008 
11160 ON Z GÜOSUB 13008,14980,15094, 16000 
‚legaga,ıi11ea 

11178 GOTO 11808 





1113920 FRINT "EBBRBRBBRBBITREVERS AUSILSCH 
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WARZ JPROGRAMM BEENDET" 
11292 END 


Ein Standard-Menümodul. 


MODUL 6.1.2 

IERBEE REIHE N 
12@10 REM VARIABLEN INITIALISIEREN 

12222 REMIX 
12048 CLR:IN=1:DIM A$499,19,R(99,1):Ai0, 
13=993 

12@59 RESTORE 

12959 S#=" ü 

12270 DIM MOSCILI:FOR I=a TO I1:READ As: 


MOSLII=SAS!NERT:CRESSCHRSE13I 

12689 DATA JANUAR ,FEBRUAR ,MAERZ ‚APRIL ,MA 
IT,JUNI, JULI ,AUGUST,SEPTEMBER „OKTOBER 
12838 DATA NOVEMBER ,DEZEMBER 

12lep 50TÜ I1lase 


Initialisiert Variablen und setzt dann die Monatsnamen in MO$. 


MODUL 6.1.3 


12220 REIRFERTRIOIIII RR KR KK 

13818 REM NEUE ZAHLUNGEN EINGEBEN 

13928 REMERHIRIIRHKKREIRIOIOI K 

13230 FRINT "SBIBILROTIIREVERS EIN]JIBRRRRBI 
NEUE ZAHLUNGENEIBLAUJTREVERS AUSI" 

139049 FRINT " IDHABEN":PRINT " D2>SOLL" 


IZEE5E INPUT "BESCHWAÄRZ JEINGABE: "7CD:CD=C 
D-1 

13eS5G INPUT "BBILBELAUINAME DER ZAHLUNG: "?7 
je E = 

13970 INPUT "BETRAG: "7Q 

130889 INPUT "SMONATE “Z.B. 81040871093: " FR 
3:PRINT " Erin Ei" ; 
13989392 FOR I=1 TO LEN{R&) STEP Z:LET M=YA 
L{MIDSAIRS,I1,2>>-1 

1312868 IF M>=Aa AND M<=11 THEN GOTO 13138 
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131180 FRINT:PRINT "DVNGUELTIGE MONATSEIN 
GABE ” 

13128 FÜR J=1 TO 208088:NE=-T:GOTO 13939 
1313@a PRINT MOS(4M)3"7"7:NEXT:FRINT 

13148 IMPUT "MAG DER ZAHLUNG: "75 

13152 INFUT "MUIRÜTIEINGABE KORREKT XJN 
I): "EZ TE:IF TS="N" THEN PRINT""7:G0TO 138 
e8 

13150 PAs=sPA+l:!FOR IsFA-iI TO a STEP -1 
13178 IF S<A£I,15 THEM FOR K=B TO 1:NA&(J 
+1,KI=SAECI,K)ındJ+t1,K)=SACI,KIENEKT K,J 
13188 J=J+1:RA$C]I,13="DOOAHHAHTAHR”" 

13139 FOR I=s1 TO LEN{R$> STEP 2:M=VAL(CMI 
DS(R$,1,2>) 

ıs2c0 AFiIT,LISLEFTESCAECT, II ,M-13+"1"H+RIG 
HTFLASCI, 13,12 -M:NEXKT 

13218 AFCI ,UI=SOE:ALT ,OI=Q:A(J,1)=S 

13228 IF CD=1 THEN AXJ,O)=SACJ,BIx-1 
122328 RETURN 


Dieses Modul ermöglicht die Eingabe der Zahlungsnamen und der zugehörigen 
Daten. 


Kommentar 


Zeilen 13080-13130: Die Monate, in denen eine Zahlung vorgenommen wird, kön- 
nen zwischen 1 für eine Einzelzahlung und 12 für einen Dauerauftrag variieren. 
Die Monate werden in Form einer Zeichenfolge aus zweistelligen Zahlen eingege- 
ben, die gelesen und geprüft werden. Danach werden die Monatsnamen auf dem 
Bildschirm zur Überprüfung ausgedruckt. Mit dieser einfachen Eingabemethode 
wird ein hoher Flexibilitätsgrad ohne komplexe Programmierung erzielt. 


Zeile 13170: Die Zahlungen werden in einer einzigen Matrix je nach Zahlungsda- 
tum gespeichert. Die Einfügung wird erzielt, indem die Datei einfach vom höch- 
sten Tag an durchsucht wird. 


Zeilen 13180-13200: Diese Zeilen legen einen Monatsindikator fest, der aus zwölf 
Nullen besteht. Die angegebenen Monate werden dann durchsucht, und die ent- 
sprechenden Stellen in dem Indikator werden auf 1 gesetzt. 


Zeile 13220: Die Abbuchungen und Eingänge werden beide als positive Summen 
eingegeben. Wird mit der Variablen CD ein Soll angegeben, so wird der Betrag 
mit minus 1 multipliziert. 
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MODUL 6.1.4 


14992 REMIS 
igaa19 REM RAENDERM-LOESCHEN VON DATEN 
13220 REMERFREEKKEHK TEE EURE 
isa38 FOR 1-8 TO PAR-1:PRINT "Wr 

13948 FRINT "BERHLUNG: "AAFCI,O) 

199540 FRINT "SBETRAG:"FRK1,O2 

1486E8 PRINT "WIÖNATE:"::FOR J=1 TO 12 
14ara IF MIDEIASII,12,J,15="1" THEN PRIN 
TMOSBET-1)5"7"; 

139880 MEAT J:PRINT 

13292 PRINT "MTAG DER ZAHLUNG: "ZRAKI,1D 
14120 PRINT "MBISLROTILREVERS EINIFUNKTIO 
NSTASTEN-BEFEHLE: [REWERS AUSICBLAUF"SPRI 
NT "gi - MAECHSTE ZAHLUNG": 

1411a FRINT "BE - ZUM MENVUE":FRINT "IB - 
LOESCHEN" 

143126 PRIMT "BIIGRUENIBEFEHL: F7LSCHWARZ I" 
14130 GET Q#F:IF QS="" THEN 14139 

14142 IF ASCKOEIS}1A42 THEN 141708 

143158 FOR J=I TO PA-1:FÜR K=9 TO 1:AS$XJ, 
KI=SABUIt1,KIEACT,.KISACT+L,KI:SNEXT K,J 
14160 PR=PA-1:RETURN 

Ia3Fra IF ASCfQEI=133 THEN NEHKT I 

i4ı1280 RETURN 


Ein einfaches Benutzer-Suchmodul, mit dem die Zahlungen und die Monate aus- 
gedruckt werden, in denen die Zahlungen vorgenommen werden müssen. Außer- 
dem können Löschungen mit drei der Funktionstasten zur Eingabe von Befehlen 
vorgenommen werden. 


Testen der Moduln 6.1.1 - 6.1.4 


Nun sollte der Benutzer Zahlungen und die Monate eingeben können, in denen 
die Zahlungen vorgenommen werden müssen. Außerdem sollte er diese Anga- 
ben nach Belieben durchsuchen und löschen können. 


MODUL 6.1.5 
18022 RETRO 


16918 REM LÄDEN-SPE ICHERN 


151 


182220 REMIS 
16630 PRINT "KASSETTE EINLEGEN, DANN [RE 
“ERS EINIRETURNIREYERS AUSI " 

150489 INFUT "MOTOR HAELT AUTOMATISCH AN: 
":QE 

lEBEG POKE 192,7:FOKE 1,39 

16278 FRINT "LROTIBMOEGL ICHE FUNKTIONEN: 
"EPRINT "IGRUENJAIIdaten speichern" 

15975 FRINT "SBPIDATEN LADEN” 

18888 INPUT "ULELAUIEINGABE:"7Q:ON G GOT 
0 181@9,1515E 

16698 RETURN 

IstlER POKE 192,8:FOR I=1 TO SOBB8:NEHT 
isila OPEN 1,1,2,"BANKER" 

16128 PRINT#1,PRA 

l1E1IS®a FOR I=-8 TO PA-1:PRINTHI,AFCI,OI,CR 
#,ASCI,12,CR&E,AXIT,DI,CRE$E,AXIT,ID:NEXT 
16148 CLOSEI1:RETURN 

16150 OPEN 1,1,8,"BANKER" 

181I66 INFUT#I,PA 

i6178 FÜR I=8 TO PA-I:INPUTHL,AFII,DOI,AE 
XI,13,ASI,O9I,RSLT,LI:NEKT 

16175 ACPA,1?=999 

18182 CLOSEA 

1eliaa GOTO 11a 


Ein Standardmodul einer Datendatei. 


MODUL 6.1.6 


17EBE KREMER RR 
17818 REM FORMATTIEREMN BER BETRAEGE 
17822 REMIS RK 
17038 MM=MM+lgaad.oa1l 

I7Q82& ME=SMIDECOSTRECMMI,3,LENCSTRECMEIID- 3 
> 

ı7asa FOR FF=s1i TO T:IF MIOSCME$,FF,I1DS>"O 
" THEN RETURN 

172860 M$=LEFTEFEIME,FF-12+" "+RIGHT$iIMSE,7- 
FFI:NEST FF 
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Dieses kurze Modul stellt eine einfache Methode zur Erzielung eines Standard- 
formats für die Geldbeträge dar, die von dem nächsten Modul ausgedruckt wer- 
den müssen. 


Kommentar 


Zeile 17030: Dieses Modul wird von vielen verschiedenen Stellen in dem nächsten 
Modul des Programms aufgerufen und bearbeitet Werte aus verschiedenen Va- 
riablen. Um dies zu erreichen, muß der zu formatierende Wert zuerst in der Va- 
riablen MM gespeichert werden. Der erste Schritt des Formatierverfahrens be- 
steht darin, daß 10000.001 zu dem Betrag hinzugefügt wird, wobei davon 
ausgegangen wird, daß der Betrag nicht größer ist als 9999.99. Dadurch ergibt 
sich eine Standardlänge von neun Zeichen (einschließlich dem Dezimalpunkt), 
von denen das erste und letzte Zeichen redundant sind. 


Zeilen 17040: Der Wert wird nun in eine Zeichenfolge umgesetzt, wobei das erste 
und letzte Zeichen (die 1) abgeschnitten werden. Wird eine Zahl mit der Funktion 
STR$ in eine Zeichenfolge umgesetzt, so wird automatisch ein Leerzeichen vor- 
angestellt, so daß das zweite Zeichen der Zahl in Wirklichkeit in Position 3 der 
Zeichenfolge steht. 


Zeilen 17050-17060: In diesem Programm sind keine führenden Nullen erforder- 
lich, so daß diese Routine die Zeichenfolgen durchsucht und dabei führende Nul- 
len in Leerzeichen umsetzt. Daraus ergibt sich eine Zeichenfolge aus jeweils sie- 
ben Zeichen, einschließlich zwei Dezimalstellen. Derartige Zeichenfolgen können 
in Spalten ausgedruckt werden, wobei man sicher sein kann, daß die Position der 
Dezimalpunkte stets übereinstimmt. 


MODUL 6.1.7 


1208 REIS 
159885 REM KONTOAUSZUG 

15818 REM RE K 
159022 PRINT "EBRRBBBREEREBBBRLROTIKONTORAUSZ 

USTSCHWARZ I": SUMME 

1593& IMFUT "NUMMER DES MONATS FUER KON 

TOASZUGE"FQ 

1Se4a IF Q=1 THEN IIacA 

15a58 FOR Ql=1 TG GQ-1:FOR I=8 TO PA-1:IF 
MIDSCASBEI,13,Q1,15<£>"1" THEN 158078 

15868 SUM=SUM+AXIT,AD 

15878 NEXT I,01 


1S9S0 PRINT "RBEROT I" MOR<CQ-1> 
152390 PRINT "TGRUENITREVERS EINJEIRRERRRRI 

ZAHLUNG  TOTALIREVERS AU 
52" 


15188 PRINT "ESCHWARZ TIBRLOCIRRERPRPEBIN 


Der 
Fr 


1511a IF SUM<@ THEN PRINT "LROTI"3 

15120 LET MM=ABS(SUM):GOSUB 17088:PRINT 
Mi 

a FOR I=a TC PA-1 

8 IF MIDSCAS(I,19,0,13<>"1" THEN 152 


nın 


EN 


it 
18 
SC LET MeasAt1,193:G05UB IFTaAH:FPRINT "L 
CHMARZ1I">MIDS«ME$,2,397 PRINT "LSCHWÄRZ I 


= 
Ei 


I1Sisa IF ACI,A)<Aa THEN PRINT "LROTI"} 
15178 PRINT AS\1I,0) 

15150 FRINT "TIERES" ; : 
MM=RBSCATT,OA2>:605UB 178BG8:PRINT ME} 
15192 SUM=SUM+ACT,OI:PRINT "BBILSCHWARZ I" 


1 
IS 
ER 
IE 
15 
5 


ss IF SuUM<a THEN FRINT "ERGTI"}7 

IS222 MM=AESCSUM)TGOSUB 17ABA:PRINT M& 
15210 GET AS:IF A&="" THEN 15218 

ISc2d NEST ISINPUT "ZURUECK MIT [REYVERS 
EINIRETURNMIREVERS AUSJ:"7X% 

15236 RETURN 


Dieses Modul erzeugt eindeutig formatierte Monatsauszüge - und erfüllt somit 


den Zweck des Programms. 


Kommentar 


Zeilen 15030-15070: Die Monatsindikatoren sämtlicher gespeicherten Zahlungen 
werden durchsucht, um festzustellen, ob Zahlungen unter den Titeln für Monate 
vor dem Datum des Kontoauszugs vorgenommen wurden. Derartige Zahlungen 
werden kumuliert, um einen Saldo am Anfang des angegebenen Monats zu erhal- 


ten. 


Zeilen 15100-15120: Der Saldo wird ausgedruckt, wobei er mit dem vorhergehen- 
den Modul formatiert wird. Hier wird darauf hingewiesen, wie einfach ein negati- 
ver Saldo durch Ausdrucken des roten Steuerzeichens angegeben werden kann. 
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Zeilen 15130-15220: Die Datei mit den Zahlungen wird nun nach den Zahlungen 
für den laufenden Monat durchsucht. Wann immer eine relevante Zahlung gefun- 
den wird, wird der Tag auf der linken Seite des Bildschirms ausgedruckt, wobei 
das Druckformat mit dem Formatmodul standardisiert wird, die hinzugefügten 
Dezimalpunkte jedoch abeschnitten werden. Danach wird der Name der Zahlung 
ausgedruckt, gefolgt von dem Betrag, wobei das rote Steuerzeichen hinzugefügt 
wird, wenn es sich um ein Soll handelt. Schließlich wird die Zahlung zu der Variab- 
len SUM hinzugefügt und der aktuelle Saldo wird neben dem Betrag der Zahlung 
ausgedruckt, wieder in rot, wenn der Saldo negativ ist. Anhand der flexiblen Cur- 
sorsteuerung des C64 ist das Erstellen derartiger Tabellen problemlos - weist die 
Tabelle nicht das richtige Format auf, so wird eine Cursorbewegung mehr oder 
weniger ausgeführt, bis die Tabelle das richtige Format aufweist. 


Zeile 15210: Die Zahlungen werden nacheinander ausgedruckt, wobei die näch- 
ste Zahlung erst nach Betätigung einer beliebigen Taste ausgedruckt wird. Da- 
durch wird verhindert, daß Zahlungen vom oberen Bildschirmrand laufen, bevor 
sie überprüft werden können. 


Testen der Moduln 6.1.6 - 6.1.7 


Wurden einige Daten gespeichert, so sollten diese nun wieder in den C64 zurück- 
geladen und ein monatlicher Kontoauszug aufgerufen werden, wobei die Beträge 
und Zahlungstitel sauber in Spalten formatiert sind. Ist der monatliche Kontoaus- 
zug richtig formatiert, so ist das Programm einsatzbereit. 


Zusammenfassung 


Dieses sehr direkte Programm erhebt einige interessante Fragen darüber, wie 
komplex ein Programm sein muß, um nützlich zu sein. Die Eingabe der Monate in 
Form einer Zeichenfolge ist in vielerlei Hinsicht recht einfach im Vergleich zu der 
Angabe, ob die Zahlung monatlich, vierteljährlich oder jährlich vorgenommen 
werden muß, wobei das Programm dann die Zahlung in die entsprechenden Mo- 
nate einfügt. Eine derartige zusätzliche Funktion wäre problemlos möglich, würde 
jedoch die Länge des Programms vergrößern und die Flexibilität der direkten An- 
gabe von Monaten reduzieren, wodurch sogar unregelmäßige Monate eingege- 
ben werden können. Schreibt der Benutzer eigene Programme, so wird er stän- 
dig mit der Frage konfrontiert, was besser automatisch und was besser vom 
Benutzer getan werden soll. Die Antwort kann von Benutzer zu Benutzer durch- 
aus verschieden sein, aber Komplexität nur um der Komplexität willen kann sehr 
teuer werden, was den Speicherplatz betrifft, und gelegentlich sogar die Nütz- 
lichkeit eines Programmes einschränken. 
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Ein Schritt weiter 


1. Das Löschmodul ist insofern recht einfach, als es dem Benutzer nur ermög- 
licht, die Einträge nacheinander durchzusehen. Warum keine Funktion hinzufü- 
gen, mit der ein positiver oder negativer Sprung angegeben wird, wobei eines der 
vorhergehenden Programme als Beispiel benutzt werden kann. 

2. Eine weitere Verbesserung bestünde darin, ein binäres Suchmodul hinzuzufü- 
gen, mit dem das momentan benutzte Durchsuchen von Ende der Datei beim 
Einfügen von Elementen ersetzt wird. 

3. Die Monatsindikatoren benutzen insgesamt 12 Bytes für jede Zahlung. An- 
hand der Angaben über AND und OR sollte der Benutzer nun in der Lage sein, 
dieselben Informationen mit 2 Bytes zu speichern und zurückzuübertragen (d.h. 
mit einem Element in einem ganzzahligen Feld). 


6.2 ACCOUNTANT 


Dieses Programm führt nicht wirklich ihre die Bücher, sondern gestaltet nur die 
Buchführung einfacher und stellt die einzelnen Zahlungen gegebenenfalls in 
einem geordneten Format dar, wobei einzelne Zahlungen, Haupt- und Untertitel 
beim Ausdrucken der einzelnen Konten entsprechend berücksichtigt werden. 


Accountant: Variablentabelle 


A$(1,99) Hauptdatei mit den Zahlungsnamen. 

A(1,99) Hauptdatei mit den Zahlungsbeträgen. 

c$ Zeile mit Leerzeichen, die beim Löschen von Texten benutzt wird. 

c(1) Feld, in dem die Anzahl von Zahlungen auf der Haben-/Sollseite der Kon- 
ten gespeichert wird. 

CD Indikator, mit dem angegeben wird, ob es sich um eine Haben- oder Soll- 
Zahlung handelt. 

CR$ Separator der Datendatei. 

GR Wird dazu benutzt, die Anzahl von Zahlungen unter einem einzigen 
Haupttitel aufzuzeichnen. 

HH$ Temporärer Speicher für den Namen des Haupttitels in dem Benutzer- 
Suchmodul. 

IN Indikator für die Initialisierung. 

M$ Zeichenfolge, in der formatierte Geldbeträge gespeichert werden. 

MM Temporäre Variable, die beim Formatieren der Geldbeträge benutzt wird. 

PL Platz in der Datei für das Einfügen eines neuen Untertitels. 
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SS Temporäre Variable, mit den Zahlungen unter einem Haupttitel kumuliert 
werden. 
TT Wird zur Kumulierung von Zahlungen in Konten benutzt. 


MODUL 6.2.1 


11888 REMESKAROK ka k 
i1g190 REM MENUE 

11828 REMIS RK 
11838 POKE 53281,7:PRINT "WBMLBLAUITREVER 
5 EIN] ACCOUNTANTLREVERS AUS 
y* 

11948 PRINT "MSLROTIMOEGLICHE BEFEHLE:*: " 
11858 PRINT "MAL GRUEN] i?2NEUE TITEL EI 
NGEBEN" 

1iasca PRINT "3 EIAENDERN/LOESCHEN VON 
DATEN" 

ı11a7a PRINT "A S>RECHNUNG AUSGEBEN" 
11888 PRINT "A 43 LADEN/SPE ICHERN 

116998 PRINT "A SY>INITIALISIEREN" 

11180 PRINT "AM 6)BEENDEN" 

11118 INPUT "IIALELAUIBEFEHL: "7Z:PRINT "U 


er 
J 


11128 IF Z<1 OR Z>4 OR IN=1 THEN 11148 
111398 PRINT "JeDepeieiete NOCH NICHT 
INITIALISIERT" 

11155 FOR I=si TO 2998:NEXT:GOTO 11908 
i1la0 IF ZS4 AND Z>8 THEN GOSUB 13896:PR 
INT "9"? 

11158 ON Z GOSUB 14898,17a90,19998 ,20808 
‚tI20808,11176:2=08:G0TQ 11998 

11168 





11188 PRINT "EERRRRRRRBBT BLAUNPROGRAMM 
BEENDET" :END 


Standard-Menümodul. 
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MODUL 6.2.2 


120220 REMOTE aaa ok 

12818 REM INITIALISIEREN 

129828 REMIS OKI KK 

12038 CLR:DIM AF11,99),A1,99):CRF=CHREC 
133 

128489 C$=" 


128509 IN=-1:G60T0O 11898 
Initialisierungsmodul. 
MODUL 6.2.3 


13898 REMAKE 
13910 REM SOLL ODER HABEN 

13228 REMIS 
13838 PRINT " AED ee > HABE 
N2)sall" 

:3948 INPUT "IRRE INGABE: ";CD: 
CD=CE-1:RETURN 


Vor der Eingabe eines Postens muß der Benutzer angeben, ob es sich um einen 
Haben- oder Sollzahlung handelt. 


MODUL 6.2.4 


13008 REMRSROKSOK Ka kakakk ak 
14818 REM TITEL EINGEBEN 

14828 REMIS 
148309 PRINT "ERBRBRBREEBBRBLROTILREVERS 
EINJNEUE DATEN: "?:IF CD=& THEN PRINT "H 
ABEH" 

149428 IF CD=1 THEN PRINT "SOLL" 

149852 PRINT "MBIREYERS AUSITBLAUIIST ES:" 
:PRINT "[GRUENIM 1>EINE EINZELNE ZAHLUN 
G" 

14862 PRINT "QM ZIEIN NEUER HAUPTTITEL": 
PRINT "MA 3>EIN UNTERTITEL" 

19078 PRINT "QM &> UM INS MENUE ZURUECKZ 
UKEHREN" 
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13932 INPUT "MIPURPURIJEINGABE: "TYPE 
14898 ON TYPE GOTO 15090,15000,16098 
14106 RETURN 


Bei der Eingabe einer Zahlung muß der Benutzer angeben, ob es sich um einen 
Haupttitel, einen Untertitel oder eine einzelne Zahlung handelt. Werden die Kon- 
ten ausgedruckt, so werden bei den Haupttitel keine Summen angegeben, die 
Untertitel unter die entsprechenden Hauptteil gesetzt und für die Gruppe eine 
Zwischensumme ausgedruckt. Einzelne Zahlungen werden allein mit einer ent- 
sprechenden Summe angegeben. 


MODUL 6.2.5 


15888 REMERIIIISIOKIOIKIOIOIOIOKOKOKO IKK 
15818 REM EINZELNE ZAHLUNG ODER TITEL 
15928 REMIGOKKK OK Ka akakkaakkakakakak ak ak 
159230 Q=B: INPUT "MIBLAUINAME DER ZAHLUNG 
"08 

ıisa4e IF TYPEX2>2 THEN INPUT "BBETRAG FUE 
R DIE ZAHLUNG: ">Q 

15858 INPUT "MEROTIEINGABE KORREKT “J/ND 
S"ERS:IF R$="N" THEN 14999 

15E68 Q$=-"H"+Q&:1IF TYPE=2 THEN Q£&="x"+Ml 
DE(GS,2) 

15878 ASCCD,CCCDI I=SQEF:ASCD,CICDI>=G:CSCD 
>=CiCDI+1:GOTO 149888 


In dieses Modul werden die Haupttitel oder einzelne Zahlungen eingegeben. 
Kommentar 


Zeile 15040: Ein Betrag wird nur angefordert, wenn es sich bei der Zahlung nicht 
um einen Haupttitel handelt. 


Zeile 15060: An den Anfang der Zahlung wird ein Indikator angefügt- für eine ein- 
zelne Zahlung, * für einen Haupttitel. Diese Indikatoren werden niemals ausge- 
druckt, sondern vom Programm zur Kennzeichnung der verschiedenen Typen 
benutzt. 


Zeile 15070: Hier wird auf die Variable CD verwiesen, mit der angegeben wird, auf 
welcher Seite der Hauptfelder Name und Betrag gespeichert werden. 
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MODUL 6.2.6 


169888 REMEBRSORROK aka ak aka kak ak akak ak ak ak 
16818 REM UNTERTITEL 

18222 REMOTE 
169838 INPUT "BEBLAUINAME DES HAUPTTITELS 
:"QS:05="K"+0$ 

16848 FOR I=®8 TO C<CD)I-I1:IF A$ICD,TI?=0$ 
THEN 16468 

16954 NEXST:PRINT "HAUPTTITEL NICHT GEFUN 
DEN":FOR I=1i TO 2896:NEXT:GOTO 14008 
16868 PL=I+1: INPUT "WESCHWARZ INAME DES U 
NTERTITELS:"Q0$ 

16878 INPUT "BBETRAG:"7Q 

160889 INPUT "MEROTIEINGABE KORREKT (J/ND 
:"ZRS:IF R$="N" THEN GOTO 14948 

160308 Q$="#" +08 

16188 FOR I=C(CD>’+1 TO PL+i STEP -1:A$CC 
D,I?=SA$CCD,I-193:RASICD,I>=ACCD,I-19:NEXT 
16118 ASCCD,PL>’=QAF:ACCD,PLI=Q:CCCDI=CCCD 
>+1:G0T0 14008 


In dieses Modul werden die Untertitel eingegeben. 
Kommentar 


Zeilen 16030-16050: Der Name des entsprechenden Haupttitels wird angefordert 
und mit den Titeln in der Datei verglichen. Ist der Haupttitel nicht vorhanden, so 
wird eine Fehlermeldung generiert. Hier wird noch einmal darauf hingewiesen, 
wie eine Schleife für eine Suche benutzt wird, wobei das Programm aus der 
Schleife geht, wenn die Zahlung gefunden wurde und der Wert der Schleifenva- 
riablen | dazu benutzt wird, die Stelle festzulegen, an der der Untertitel eingefügt 
wird. Die Beendigung der Schleife bedeutet, daß der Haupttitel nicht vorhanden 
ist. 


Zeilen 16090-16110: Der Untertitel wird mit einem Symbol gekennzeichnet und 
unmittelbar im Anschluß an den entsprechenden Haupttiel zu der Hauptdatei hin- 
zugefügt. 

Testen der Moduln 6.2.1 - 6.2.6 


Nun sollte der Benutzer in der Lage sein, Haben- oder Soll-Zahlungen in das Kon- 
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to einzugeben und diese auf der richtigen Seite der Hauptdatei einzufügen (Ha- 


benseite 0, Sollseite 1). Dies kann nur im direkten Modus überprüft werden. 
MODUL 6.2.7 


zseeRa REMRSSRTORK Ra ık 
zeanıla REM LADEN-SPEICHERN 

eBRa22 REMIS AK 
eaesa FRINT "MIBLAUIKASSETTE EINLEGEN, D 
ANN [REVERS EIMIRETURNIREVERS AUSI---" 
288409 IMPUT "MOTOR HAELT AUTOMATISCH AN: 
":QEIPOKE 192,7:POKE 1,39 

22050 PRINT "ANIROTIMOEGLICHE BEFEHLE:": 
FRINT "EGRUENIJMIDDATEN SPEICHERN" 

24955 PRINT "BE:DATEN LADEN" 

zga6B8 INPUT "BIROTIBEFEHL:"?Q:ON Q GOTO 
Pause ,2za140 

2B8TE RETURN 

z8osa FOR I=8 TO 1:1IF A$(1,8)="" THEN A$ 
<1,08>=" ":NEXT 

28898 POKE 1,7:FOR I=1 TO 2QA9:NEXT 
eB109 OPEN 1,1,2, "RECHNUNG " 

eaıia FOR I=8 TO 1:PRINT#HI,C<ID:IF CCI)= 
8 THEN 28138 

28128 FÜR J=8 TO CSII-1:PRINTHI,AE$CI,JD, 
CR$,ACI,„JIPI:NEKT J 

28138 NESTI:CLOSE1:RETURN 

28148 OPEN 1,1,8, "RECHNUNG ” 

ee1l5a FOR I=8 TO 1:INPUTH1,C<II:IF CCI>= 
& THEN 28178 

eugise FOR J=8 TO CSII-1:INPUTHI,ASCEI,JD, 
AXI,JDENEKXKT J 

28172 NEXT I:CLOSEI1:RETURN 


Ein Standardmodul der Datendatei. 


MODUL 6.2.8 


21909 REM 
eilaid REM FORMATTIERUNG DER BETRAEGE 
DIEZB REDEN AIHAOIOIOKOIHOKOR HOR RKK 
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21830 MM=MM+IBABA.AA1:ME=SMIDSCSTRECMM),3 
re) 

eic4ga FOR F=1 TO 3 

2195a IF MID$CM$,P,1>="8" THEN M&=LEFTET 
M$,P-19+" "+RIGHT$(iMS$,7-P):NEXT 

21862 RETURN 


Dieses Modul führt dieselbe Funktion aus, wie das Formatiermodul im letzten 
Programm. 


MODUL 6.2.9 


17089 REMEH 3 Kakakak aleak ak ak akake ak ale ak ale ak ale afe ak ak ak ak ade ak ak ak ak 
17818 REM AENDERN/LOESCHEN 

17ea20 REMAKE Ka ak 
17838 FOR I=8 TO CICDI-1 

17848 PRINT "WNLROTIIREVERS EIN]IERBRRRRRI 
RAENDERN ODER LOESCHENILREVERS AUSI" 
178558 IF LEFT$S{ASCCO,ID,1><C>"$" THEN PRI 
NT "ME" MIDS<CASICD,IT?,29; 

ıi7a68 IF LEFTSCASCCD,TI?,1)="*” THEN LET 
HH&=MIDE(A$ICD, ID ,23:PRINT 

i7ar78 IF LEFTS(ASEICD,I),1)="$" THEN PRIN 
TE"; HHE$:PRINT"M"FMIDSCASCCD, 12,295 
170888 IF A<CD,I1>=8 THEN 171086 

17230 PRINT"IRRBRBBRBRRRRBRBI" ; :MM=A<CD, I 
3:G0OSUB 218698: PRINT M&$ 

171808 PRINT "ERMISKISLROTIFUNKTIONSTAST 
EN-BEFEHLE: " 

17118 PRINT "MIGRUEN]I Fi - NAECHSTE ZAH 

LUNG " 

17128 PRINT "AM F3 - BETRAG AENDERN" 
17138 PRINT "3 FS5 - ZURUECK ZUM MENUE " 
17148 PRINT "9 FS - ZAHLUNG LOESCHEN" 
17158 PRINT "MMLPURPURIBEFEHL: 7?" 


17168 GET QS$S:IF Qd$="" THEN 17168 
ırıra IF QS=SCHRSE(148) THEN GOSUB 18099:R 
ETURN 


ı1718a IF QS=CHR$(135) THEN RETURN 
17198 IF Q&< >CHR$134) OR LEFTS(AS$SCCD,TD 
‚1>="*" THEN GOTO 17248 
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17280 INPUT "MIILSCHWARZIZU ADDIERENDER B 
ETRAG:":Q 

172108 INFUT "MIROTIEINGABE RICHTIG (J/N) 
ERS 

17220 IF R&<>"N" THEN ACCO,I)=ACCD,I)+Q: 
GsoTo ı7aaa 

17238 PRINT "OORD"?:FOR L=1 TO 3:PRINT C 
$? :NEXT:PRINT "CORD"}:G0T0 17208 

17240 NEXT I:RETURN 


Mit diesem Modul kann der Benutzer durch die Zahlungen auf der angegebenen 
Seite der Konten gehen und einzelne Zahlungen ändern oder löschen. 


Kommentar 


Zeilen 17050-17090: Diese Bedingungen befassen sich mit der Formatierung der 
verschiedenen Zahlungstypen. Handelt es sich bei die Zahlung nicht um einen 
Untertitel, so wird der Name der Zahlung ausgedruckt, wobei der Name auch in 
HH$ gespeichert wird, wenn es sich um einen Haupttitel handelt. Handelt es sich 
bei der Zahlung um einen Untertitel, so wird der vorher gespeicherte Haupttitel 
vor dem Untertitel ausgedruckt, um die Gruppe anzugeben, in die der Titel fällt. 
Handelt es sich schließlich bei der Zahlung um eine einzelne Zahlung oder einen 
Untertitel, so wird der damit verknüpfte Betrag mit Hilfe des vorhergehenden Mo- 
duls formatiert, bevor er ausgedruckt wird. 


Zeilen 17190-17230: Wird die Taste f3 für eine einzelne Zahlung oder einen Unter- 
titel betätigt, so hat der Benutzer die Möglichkeit, den mit einer Zahlung ver- 
knüpften Betrag zu ändern, indem er eine positive oder negative Zahl eingibt. Hier 
wird auf die Benutzung von C$ verwiesen, um die Eingabeaufforderungen im Falle 
eines Fehlers zu löschen. 


MODUL 6.2.10 


i8808 REMAKE AR 
iseidg REM LOESCHEN 

18320 REMIS III Ka akakak ak 
182308 PL=I:IF LEFT$LASCCD,PLI,13<>"x" TH 
EN GR=1:G0TO 1ga60 

13040 GR=a 

18EI5A GR=SGR+1: IF LEFT$SASCCD,PL+GR)I,1>=" 
£2" THEN GOTO 18058 
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1398858 FOR K=PL TO CCCDI-GR-1:ACCD,KI=RASC 
D,K+GRI:ASCCD,KI=SASCCD,K+GR> NEXT 
18870 C<CDI=CiCDI-GR:I=I-GR+1:RETURN 


Dieses Modul nimmt die Löschungen vor, die in dem vorhergehenden Modul an- 
gegeben wurden. 


Kommentar 


Zeile 18030: PL wird gleich dem Wert der Schleifenvariablen in dem vorhergehen- 
den Modul gesetzt. Bei Untertiteln und einzelnen Zahlungen wird die Variable GR, 
mit der die Anzahl von zu löschenden Zahlungen angegeben wird, gleich 1 ge- 
setzt. 


Zeile 18040: Bei Haupttiteln wird die Variable GR erhöht, um den Haupttitel selbst 
und sämtliche Untertitel zu berücksichtigen, da diese zusammen mit dem Haupt- 
titel gelöscht werden müssen. 


Zeile 18060: Mit GR wird festgelegt, wie viele Zahlungen in der Datei überschrie- 
ben werden, und um wieviel der Wert auf der jeweiligen Seite des Feldes C ge- 
kürzt werden muß. 


Testen der Moduln 6.2.8 - 6.2.10 


Nun sollte der Benutzer in der Lage sein, Daten einzugeben und durch diese Da- 
ten zu gehen, wobei die zugehörigen Beträge geändert oder einzelne Zahlungen 
gelöscht werden können. 


MODUL 6.2.11 


1I3ABO REMHAKEHEKRKK EHER KK REK E 
19818 REM RECHNUNG AUSGEBEN 

1S828 REM RARRRRRRIRRIRI 
13238 LET FRAr$="HÄABEN":IF CD=1 THEN PA$=" 
SOLL" 

123R90 TT=A:SS=-A:PRINT "JERBBBREBBBILREVER 
S EINIIROTI"7PAS:"" 

188528 FOR 1-8 TO CiCDI-1:TT=-TT+ACCD,TI> 
139868 PRINT "LSCHWARZI"F:IF 1/2=1INT<(I1/23 
THEHN PRINT "ITGRUEN]J"?F 

13@79 IF LEFTSIASCCD,I?,1>3="%x" THEN PRIN 
T 
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180838 IF LEFT$(A$CCD,I2,1>="$" THEN PRIN 
Tt’BB"; 

19a39& PRINT MIDEIASICO,II,S)I 

13188 IF LEFTSYASICD,ID,12>="%*" THEN 1915 
[2] 

1511@ PRINT "TERRBRRRBBEIIIe" ; 

13128 IF LEFT$(AFICD,1>,15="#4" THEN PRIN 
T'"EBBRRIBRRBRN" ; 

191398 MHM=AtCD,ID2:GOSUB Z1989:PRINT MS$ 
13148 IF LEFTECAS$ICD,I?,1)="$" THEN 55=5 
S+RiCD,TID 

ı1sısa IF 55=8 OR LEFTS(CA$(CD, I+r1),1>="3$" 
THEN 19184 

1316@ PRINT "IBBBRERERBRERBERBB- - - - - - - zB 
19174 MM=-5S5:GOSUBZ1886:PRINT M$3:5S5=8 
18180 GET GG$: IF GG$="" THEN 19198 

191346 NEXT I:PRINT "IRBRBRBRERREBBBEBRERDET 
13284 PRINT"ITREVERS EINJITOTALIREVERS AUS 
3: 2. 

13210 MM=-TT:GOSUE Z1889:PRINT M$ 

1322@ PRINT "BIEROTITASTE DRUECKEN" 

193230 GET GG&$:IF GG#$="" THEN 193238 

19248 RETURN 

19258 STOP 


Dieses Modul läuft parallel zu dem Modul für das Ausdrucken von Kontoauszü- 


gen im letzten Programm. 


Kommentar 


Zeile 19060: Um zu verdeutlichen, welche Summe zu welchem Betrag gehört, 
werden die Zahlungen und die zugehörigen Beträge abwechselnd in schwarz und 


grün ausgedruckt. 
Zeile 19070: Vor einem Haupttitel steht eine Leerzeile. 


Zeile 19080: Untertitel werden um zwei Stellen eingerückt. 


Zeilen 19100-19140: Für Untertitel und einzelne Zahlungen werden der Zahlungs- 


name und der zugehörige Betrag ausgedruckt. Beträge von Untertiteln werden in 
einer separaten Spalte ausgedruckt. Die Gesamtsumme von Untertiteln unter 
einem Haupttitel wird in SS kumuliert. 


Zeilen 19150-19170: Am Ende einer Gruppe mit Untertiteln wird die Gesamtsum- 
me für die Gruppe ausgedruckt. 


Zeile 19180: Erneut werden die Zahlungen nacheinander ausgedruckt, wobei die 
nächste Zahlung erst gedruckt wird, nachdem eine beliebige Taste betätigt wur- 
de. 


Zeilen 19200-19210: Die Gesamtsumme für die jeweilige Seite der Konten wird 
ausgedruckt. 


Testen von Modul 6.2.11 


Nachdem einige Daten eingegeben wurden, sollte jede Seite der Konten ange- 
zeigt werden können. Hier wird darauf hingewiesen, daß jeweils nur eine Seite 
gleichzeitig angezeigt werden kann. 


Zusammenfassung 


Jetzt sollten Sie schon mit den Techniken vertraut sein, die beim Hinzufügen und 
Löschen von Zahlungen benutzt werden, ohne die Gesamtreihenfolge der Datei 
zu stören. Außerdem sollten auch Sie schon Freude daran haben, selbst einfache 
Zahlen sauber formatiert auf dem Bildschirm anzuzeigen. Es lohnt sich durchaus, 
einige der hier benutzten Methoden zu überprüfen, bevor fortgefahren wird. Im 
nächsten Programm werden nämlich wesentlich komplexere Daten als bisher 
verarbeitet und angezeigt. 


Ein Schritt weiter 


1. Eine weitere nützliche Funktion bestünde in der Möglichkeit, den Saldo zwi- 
schen den beiden Seiten des Kontos auszudrucken, wenn eine der beiden Seiten 
angezeigt wird. 

2. Wie schon im vorhergehenden Programm werden Sie das aktuelle Benutzer- 
Suchmodul ändern wollen, wenn eine große Anzahl von Zahlungen gespeichert 
werden soll. Mit diesem Modul können die Zahlungen nämlich nur eine nach der 
anderen überprüft werden. Dennoch muß hier vorsichtig vorgegangen werden, 
da das Modul Haupttitel entdecken muß, während es durch die Datei geht, insbe- 
sondere, wenn diese gelöscht werden müssen. Wird einfach durch die Datei ge- 
sprungen, ohne diesen Punkt zu berücksichtigen, so könnte dies veheerende 
Folgen haben. 


166 


6.3 BUDGET 


Nun wenden wir unsere Aufmerksamkeit dem komplexesten und schwierigsten 
Programm in diesem Buch zu. Budget ist eine leistungsfähige und flexible Finanz- 
hilfe, mit der der Benutzer die Finanzen über eine Dauer von zwölf Monaten pla- 
nen und die Folgen von 'Was-ist-wenn' Entscheidungen über Einnahmen und 
Ausgaben prüfen kann. Wird dieses Programm richtig eingesetzt, so kann es 
einen überraschenden Einblick in die Finanzen einer Familie über das kommende 
Jahr gewähren, ganz abgesehen davon, daß einige der Probleme der Arbeit mit 
großen Mengen numerischer Daten verdeutlicht werden. Die vom Programm be- 
nutzten Felder speichern etwa 800 verschiedene numerische Werte. 


Budget: Variablentabelle 


BA(1,11) Kassenbestand jedes Monats. 

BD(1,11) Saldo der geplanten Zahlungen im Vergleich zu den tatsächlichen Zahlun- 
gen. 

C1(1,11) Haupteinkommen. 

C2(1,11) Nebeneinkommen. 

CU Temporäre Variable, die bei der Berechnung des kumulativen Überschus- 
ses/Defizits benutzt wird. 

FO$ Cursor-Kontrollfolge, die bei der Formatierung der Tabelle benutzt wird. 

H Indikator, mit dem angegeben wird, welche Seite der Felder adressiert 
werden soll. 

1 Variable, mit der die richtige Handhabung von 12-Monats-Zeiträumen ge- 
währleistet wird, die über das Ende des Kalenderjahres hinausgehen. 

Mi Temporäre Variable für den Monat, mit dem die Tabellenanzeige begon- 
nen wird. 

M2 Temporäre Variable, in der die Änderung des laufenden Monats aufge- 
zeichnet wird. 

MM Nummer des laufenden Monats. 

MO(1,29) Durchschnittliche monatliche Zahlung für jeden Zahlungstitel. 

MO$(11) Monatsnamen. 

MY Temporäre Variable, die bei der Formatierung der Geldbeträge benutzt 
wird. 

MY$ Zeichenfolge, in der der formatierte Geldbetrag gespeichert wird. 

N(1) Anzahl von Zahlungen auf beiden Seiten der Felder. 

PA(1,29,11) Beträge, die mit den Zahlungstiteln verknüpft sind. 

PA$(1,29) Namen der Zahlungstitel. 

PP Temporäre Variable, mit der die Position der Zahlung angegeben wird, die 
in dem Feld geändert werden muß. 

PT(1,11) Monatliche Gesamtausgaben. 
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R$ 


Separator der Datendatei. 


T() Temporäre Variable, mit der der Gesamtbetrag berechnet wird, der in der 
durchschnittlichen Budgetzuweisung beiseite gelegt wird 

TT Temporäre Variable, die zur Berechnung der Gesamtzahlen für Zahlun- 
gen benutzt wird, die in der durchschnittlichen Budgetberechnung ent- 
halten sind. 

Y Nummer des Monats bei Jahresende. 

MODUL 6.3.1 


219998 .REMRSOK RK 
2lei8 REM LADEN/SPE ICHERN 

21028 REM ak 
21838 PRINT "[ROTIKASSETTE EINLEGEN, DAN 
N [REYERS EINIRETURNIREVERS AUS]J--" 
218458 INPUT "MOTOR HAELT AUTOMATISCH AN: 
"ZQE&:POKE 192,7:POKE 1,39 

21852 PRINT "MIEBLAUIMOEGLICHE BEFEHLE:" 
el8a60 PRINT "IGRUEN]I 13DATEN SPEICHERN": 
PRINT " Z3DATEN LADEN" 

21978 INPUT "ELSCHWARZ IBEFEHL: "7Q:ON Q GO 
TO 21889,21138:RETURN 

eiasa POKE 1,7:FOR I=1 TO 2888:NEKT 
218938 OPEN 1,1,1,"BUDGET":PRINT#1,MM,RS$, 
Y:FOR H=8 TO 1:PRINT#1,NCH) 

eiloea FOR 1=8 TO 11:PRINT#1,C1ICH,I?,R$,C 
eCH,TD:NERT 1 

e1l1l1d FOR I=8 TO NCH)>-1:IF PASCH,II="" T 
HEN PASCH,I>=" " 

eil2a PRINT#1,PASCH,I>:FOR J=8 TO 11:PRI 
NT#1,PA<CH,I1,J3:NEXT J,I,H:CLOSE1:RETURN 
211386 OPEN 1,1,8,"BUEGET": INPUT#1,MM,Y:F 
OR H=8 TO 1:INPUT#H1,NCH) 

eiiaa FOR I=8 TO 11:INPUT#H1,CICH,I>D,C2CH 
‚I’:NEXT I 

e1ll5a FOR I=8 TO NEH>-1 

211698 INPUT#1,PASCH,ID:FOR J=8 TO 11:1NP 
UT#1,PACH,I,JDIENERT J,1 

e1llr7e GOSUB 1480898 :NEXT H:CLOSEI1:RETURN 
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Die Komplexität dieses Datendatei-Moduls sollte Sie von der Notwendigkeit üb- 
erzeugen, Daten in regelmäßigen Abständen zu speichern, um sich vor Fehlern 
zu schützen, die bei der Eingabe eines derart komplexen Programmes nicht ver- 
mieden werden können. 


MODUL 6.3.2 


11220 REMBBSRBSK ka 
ı11aid REM MENUE 

11822 REM BR RK AR 
11203a POKE S53281,13:PRINT"’ÜJCKBDRBRBBRREBIL 
ROTIIREVERS EINIBUDGET" 

11842 PRINT "BSLELAUIMOEGLICHE FUNKTIONE 
na" 

11a52a PRINT " ESRUENIJIL>MONATLICHE ANALYS 

E AUSGEEBEN" 

11868 PRINT " 2Z3AENDERUNGEN" 

1187@ PRINT " 33NEUE RECHNUNGEN" 

11856 PRINT " 4>RECHNUNGEN LCESCHEN" 
11a9a FRINT " SPHYPOTHETISCHE DATEN SETZ 
EN" 

11182 PRINT " E6>MONAT EINSTELLEN” 

it11a PRINT " 72LADEN/SFEICHERN" 

11126 FRINT " 8S>IMNITIALISIEREN" 

111358 PRINT " 3>BEENDEN” 

i1l4& INPUT "NIROTIBEFEHLE:"7Z:PRINT "3" 
»: IF Z<sS THEN 11160 

1i1Sa ON Z-4 GOGSUB 1Saoca,17Bada,21000,128 
8808,111398:G0T0 11088 

11162 PRINT " MEeIiimieikiell PURFUR J 1 > WAHRE 
DATEN":PRINT "Z’HYPOTHETISCHE DATEN" 
1117& INPUT "LBLAUJIEINGABE:"FHEIF H<1 OR 
H>2 THEN 11170 

1118 PRINT "W":H=H-1:0N Z GOSUB 1350088,1 
speam,16000 ,200A4:G0OTO 118008 

11198 PRINT "Ju ROTILRE 

“ERS EINJIFROGRAMM BEENDET":END 





Ein Standard-Menümodul, mit dem darüber hinaus definiert werden kann, ob die 
wahre oder hypothetische Seite der Felder adressiert wird. Der Unterschied zwi- 
schen diesen beiden Seiten wird später erläutert. 
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MODUL 6.3.3 


12B22 KREMER 
12081 REM INITIALISIEREN 

1282ZE& REMIS 
12039 CLR 

12842 DIM FA$(1,2939,MCk1,299,PA(1,29,11) 
‚„PT£1,113,BD<1,113,C16C1,112,BAc1,113 
120858 DIM CZi1,113:R$S=CHR$C13) 

ı2ea650 DATA JANUAR „FEBRUAR „MAERZ ‚APRIL ,MA 
I,JUNI,JULI ,AUGUST,SEPTEMBER 

120878 DATA OKTOBER ,‚NOVEMBER ,„DEZEMBER 
122832 DIM MOF<CIIDI:RESTORE:FOR Iso TO il: 
REARD MOSCII:NEKT 

12834 INPUT "MISCHWAÄRZ ILADEN SIE YON KAS 
SETTE «I/ND:"7O3$:1IF Q$="J" THEN GOTO 118 
88 

izioa INFUT "BEROTINUMMER DES JETZIGEN M 
ONATS: "Ms Md=mMM-1: Yen 

1211e GOSUB 1S5094:GOSUB 16094:G0TO11EBA 


Initialisierungsmodul. 


MODUL 6.3.4 


1sea0 REMAGEN 

iSe18 REM EINKOMMEN 

IEB2E REDDIT 

15838 PRINT "WISLBLAUIGEBEN SIE IHR HAUPT 

EINKOMMEN FUER DIE FOLGENDEN MONATE EI 

Ne" 

isaad FOR I=MM TO Y:Ii=sI:IF Ii>lil THEN I 

1=11-12 

18858 PRINT MO$<CI112;:":": INPUT "DRRRPRBBEl 
"ZCICH,IID:ENERT I 

189864 PRINT "WISANDERE ERWARTETE EINKUENF 

TE:" 

18072 FOR I=MM TO Yıli=I:IF Ii>1l THEN I 

i=11-12 

18888 PRINT MC$<I1);5":": INPUT "CRskbBi 
"ZC2CH,I1D:NEST I 

18894 GOSUB 14B8aA: RETURN 
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In dieses Modul wird das Einkommen unter dem Titel 'Haupteinkommen’ und 'Ne- 
beneinkommen' eingegeben. 


Kommentar 


Zeile 18040: Während die Daten in den Feldern in der Reihenfolge von Januar bis 
Dezember gespeichert werden, kann der 12-Monat-Zeitraum, den das Programm 
abdecken kann, in einem beliebigen Kalendermonat beginnen. Dementspre- 
chend wird mit der Variablen I1 gewährleistet, daß die Schleife nach Abschluß des 
zwölften Monats zu der Adresse des ersten Monats des Kalenderjahres geht. 


Zeile 18050: Hier wird darauf hingewiesen, wie die Variable H bestimmt, welche 
Seite der Felder adressiert wird. 


Testen der Moduln 6.3.2 - 6.3.4 


Durch Einfügen temporärer RETURN-Befehle bei 14000 und 16000 sollte der Be- 
nutzer nun Einkommensdaten für die zwölf Monate ab dem gewählten Anfangs- 
monat eingeben können. Im Augenblick werden die Einkommenszahlen nur in die 
wahre Seite der Felder eingegeben - dies wird später noch erläutert. 


MODUL 6.3.5 


I16BE2 REMRISIDKSIORO aka 
ıisale REM EINGABE DER RECHNUNGEN 

16826 REMAORIORARRkk 
15858 PRINT "JSIROTIERBRRBBBBILREVERS EIN 
JEINSABE DER RECHNUNGEN: " 

isaad FRINT"ETGRUENISETZEN SIE '#' VOR IH 
FE EINSABE, WENN EIE RECHNUNG NICHT IN 
DIE"? 

ı1sasa PRINT "EÜHELLBELAUI ANALYSE":PRINT " 
MITEINBEZOGEN WERDEN SOLL." 

16955 PRINT "'ZZZ' UM INS MENUE ZURUECKZ 
UKEHREN" 

16868 INPUT "WIRCTITITEL DER RECHNUNG: "3 
as: IF QS="ZZZ" THEN GOSUB 19888: RETURN 
1687E NCHI=SNCHI+A 

ı1S58E9 IF MiH)=3RO THEN NCH?=293:PRINT "KEI 
N PLATZ MEHR":FORIS1ITO 2889: NEKT:RETURN . 
18890 PREISH.NCHI-13=GS&:PRINT "BLBLAUJAUS 
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GABEN FUER "GS7 ":" 

I1S1IER FOR Is TO YeIi=I:IF Ii>ill THEN I 
i=I1-12 

185118 PRINT MO&<(I1): INPUT "TRBRRERRBRBIT" 
APRSH,NCHI-1,ILI:NEST I 

18128 GCTO 16884 


In dieses Modul werden Rechnungstitel und zugehörige Beträge eingegeben. 
Kommentar 


Zeile 16040: Das Programm verfügt über die Möglichkeit, eine durchschnittliche 
Monatszahl zu berechnen, die die jährlichen Gesamtzahlungen unter einem be- 
liebigen Zahlungstitel abdeckt. Steht vor dem Zahlungsnamen ein *, so wird die 
jeweilige Zahlung aus dem Verfahren ausgenommen - d.h. sie wird als Einzelzah- 
lung behandelt. 


Zeile 16070: Mit der Variablen H wird die eine oder andere Seite des aus zwei Ele- 
menten bestehenden Feldes N erhöht. In ihr wird die Anzahl von Zahlungen fest- 
gehalten, die auf jeder Seite des Feldes gespeichert werden. 


Zeilen 16090-16110: Nachdem der Zahlungstitel angegeben wurde, wird für jeden 
der zwölf Monate in dem betreffenden Zeitraum eine Eingabe gefordert. 


Testen von Modul 6.3.5 


Der Benutzer sollte nun eine Reihe von Rechnungen eingeben und sie auf der 
Null-Seite des Feldes PA$ und PA wiederfinden - wobei auch hier wieder bei der 
wahren Seite der Felder geblieben wird. Der temporäre RETURN-Befehl bei 
14000 muß für diesen Test beibehalten werden. 


MODUL 6.3.6 


14822 REMBRERKRRFEKIORKK KHK KHK KK ERR U H 
1908108 REM EUDGET ERNEUERN 

1598290 FEMSSOIOIIIORORIRIIIOIIOK 
194435 TCH?=8 

14844 FCR I=8 TO NCH>-1:BU=B: IF LEFTS$(PA 
$(H,1>,13="%*%" THEN 14960 

14859 FOR J=8 TO L1:EBU=SBU+PASH,I,JI:NEXT 
:MOCH,IT>=BU/12:TCH?=STEH>I +MOSH,TID 
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i9a6a NERT I 

1327@ TT=8:CU=8:FOR I=MM TO Y:lil=Iri2Kcl 
>112:PTSH,I1D=8 

19888 FOR J=9 TO NSH>-1:PTIH,I1?>=PTCH,Il 
>+FACH,J,ILI:NEKT JSTT=STT+PTSH,IlD 

14899 FOR J=8 TO N{H>-1:IF LEFT$SCFASCH,J 
3,13="%" THEN TT=STT-PACH,J,ILI:NERT J 
141A8 BOCH,I1I=STCHIKCI-MM+LI-TTECU=SCU+C1 
CH,ILD+CECH, IL) -PTSH,ILD:BACH,IT1D=CU 
i14l11a NEST I:RZTURN 


Dieses Modul führt sämtliche Berechnungen aus, die für das Erstellen der Zah- 
lentabelle erforderlich sind, die hier aufgebaut werden soll. 


Kommentar 


Zeilen 14040-14060: Die monatlichen durchschnittlichen Budgetzahlen werden 
berechnet und in der Matrix MO gespeichert. Die kumulative Gesamtsumme für 
diese Zahlen wird im Feld T gespeichert. Das Verfahren wird nicht für Zahlungsti- 
tel ausgeführt, die mit einem * beginnen. 


Zeile 14070: Hier wird auf die Benutzung der Booleschen Bedingung (I! < 11) 
zur Berechnung des Wertes von |1 verwiesen. Ist | kleiner als oder gleich 11, so 
hat diese Bedingung einen Wert Null und wirkt sich auf den Wert von I1 nicht aus. 
Ist | größer als 11, so nimmt die Bedingung den Wert minus 1 an und kann zur 
Rücksetzung von |1 benutzt werden. 


Zeile 14080: Die Gesamtsumme sämtlicher in einem bestimmten Monat zu be- 
zahlenden Rechnungen wird in der entsprechenden Zeile des Feldes PT kumu- 
liert. In TT steht die kumulative Gesamtsumme dieser monatlichen Gesamtsum- 
men. 


Zeile 14090: Von TT werden nun die Beträge subtrahiert, die mit Zahlungen ver- 
knüpft sind, die nicht in den durchschnittlichen Budgetberechnungen aufgenom- 
men werden sollen. TT enthält nun die kumulative Gesamtsumme der Zahlungen, 
die in der durchschnittlichen Budgetberechnung enthalten sind. 


Zeile 141000: Der Saldo der geplanten Zahl im Vergleich zu den tatsächlichen 
Zahlungen wird nun im Feld BD gespeichert, indem die durchschnittliche monatli- 
che Zahlung mit der Anzahl von Monaten multipliziert wird und die tatsächlichen 
Zahlungen bei geplanten Posten bis zum entsprechenden Monat subtrahiert wer- 
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den. Der Saldo der beiden Einkommensarten im Vergleich zu den gesamten tat- 
sächlichen Zahlungen für den Monat wird im Feld BA gespeichert. 


Testen von Modul 6.3.6 


Dieses Modul kann nur schwierig voll getestet werden, bevor nicht das Modul, 
mit dem die Tabelle angezeigt wird, eingegeben wurde. Es wird jedoch empfoh- 
len, einige Daten einzugeben, da dadurch das Modul aufgerufen und die Syntax 
überprüft wird. Sind Sie überzeugt, daß das Modul einwandfrei arbeitet, so wird 
empfohlen, die eingegebenen Daten auf Band zu speichern. 


MODUL 6.3.7 


e2BRA REMIS 
22818 REM UNTERPROGRAMME 

B2BER REM 
22039 MY=INT<SABS«MY)+LOBOOI :MYES=MIDSCSTR 
$(MY), 3): IF MY>=200800 THEN MYs="HHHH" 
22048 RETURN 


Eine Formatierroutine, die eine vierstellige Zahl falls erforderlich mit führenden 
Nullen zurückgibt. Ist die verarbeitete Zahl größer als 9999, so wird sie als" ####" 
angezeigt. Damit wird angegeben, daß die Zahl außerhalb des Bereichs liegt, der 
von diesem Programm genau angezeigt werden kann. Die Programmberechnun- 
gen sind davon nicht betroffen. 


MODUL 6.3.8 


1I2BO RETRO ik 
12018 REM AUSGABE 

15920 REMOKOKAGIIRRRIIEK 
13030 PRINT "LERERBBREREBBBBBITROTILREVYERS 
EINIANALYSE" 

122498 IMPUT"MIT WELCHEM MONAT BEGINNEN: " 

Mi: IF Mi<1 OR Mi>11 THEN 13940 

135259 Mi1=M1-1:IF MM-M1-12#CM1>MM-1)<4 TH 

EN Mi=MM-4-12%CMM<5) 

13868 PRINT "BIGRUEN] 





% 





13878 FRINT" TGRUENIS&EBLAUIMONAT ” 


. 
F 
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13836 FORI=MiI TO Mi+3:PRINT "TGRUENIBBELB 
LAUI"ZLEFTSKMOSCIH+I2KCTP 113,397 

13898 NEXT J:PRINT "IGRUENIJ® [BLAUIB IGR 
UENI#" 

13184 PRINT "TGRUEN] 








13118 FOR I=&a TO N<H>-1:1IF I<>15 THEN 13 
148 
=i2@ INPUT "WEITER MIT [ROTIIREVERS EIN 
JRETURNIREVYERS AUS1:":Q$S:PRINT "" 
13125 FOR J=1 TO 28 
13138 PRINT " 

":NEX&T J®PRINT "" 
13148 PRINT " [GRUENIBIBLAUI"FLEFTSIPASS 
H,I?,12):PRINT "TIRRRRRRRRERRRBI" ; 
13159 FOR J=Mi TG Mi+3:PRINT "I[GRUENIBER 
OTI"7:MY=INTSFACH, 1,J+12%%J>11299:GOSUR 
22038 
isisa PRINT MYS7:NEXT J:PRINT "IGRUENIELI 
ROT": 
13178 MY=INT<MOCH,TD3:GOSUB 22839:FRINT 
MYS:NEXT I 
131838 PRINT " [GRUEN TEE 





325355 





13198a9 INPUT "TSCHWARZ ITREYERS EINJRETURN 
[REVERS AUSI FUER AUSGABE DER ANALYSE: "7 
QE 


132a@ PRINT'ZIER":FOR I=i TO ZE:PRINT " 


13218 NEXT I:RESTORE:FOR J=i TO 12:RERD 
AE:NE=T:PRINT "ERIEINIGRÜENI”" 

ıse2a DATA TOTAL,BUOGET,BUDGET BAL. ,‚HAUP 
TEINK., NEBENEINK.,GESAMTEINK. 

32358 DATA GELOGLE ICHGEW,ANHAEUFUNG 
is283a FOR i=1 TO S:READ A$:FRINT " IGRUE 
NIBSCBLAUI"FAF 

1325@ PRINT "IGRUEN] & 


E2233:5 













i32ESO FOF=" 
12279 FOR I=sMl TO Ml+3:1I1=sItl2%s I>119:PR 
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INT "andy" 

13222 PRINT FO&} "LGRUENIB"FEMY=SFTCH, 11: 
PRINT "LSCHWARZI"F:IF MY<@ THEN PRINT "L 
ROTI"? 

13298 GOSUB 22030:PRINT MY$:PRINT 

1338@ PRINT FÜ&: " [GRUENIK"F:MY=TCH):PRIN 
T "LSCHWARZI”S:IF MY<® THEN PRINT "LROTI 


Br} 
f 


1331 GOSUB 229838: PRINT MY$:PRINT 

13328 PRINT FO&: "[TGRUENI&" + :MY=BD<H,I1D: 

PRINT "[SCHWARZI"F:IF MY<a THEN PRINT "EL 

ROTI": 

1353@ GOSUB Z2ESG:PRINT MYE&:PRINT 

13340 PRINT FOS: "TGRUENZK"7:MY=SCISCH,I1D: 

PRINT "EISCHWARZI"F:IF MYs@z THEM PRINT "L 

ROTI": 

13550 GOSUB Z2A38:PRINT MY$:PRINT 

133689 PRINT FO&; "LGRUENI&"7:MY=C2CH,I1D: 

PRINT "ETSCHWARZI"F=IF MY<&8 THEN PRINT "CL 

ROT]I": 

13278 GOSUR 22839:PRINT MY$:FRINT 

13332 FRINT FO$7 "TGRUENI&"F:MY=MY+CISH,I 
13-18969:PRINT "ISCHWARZI"F:IF MY<B THEN 
FRINT "IROT]J"? 

13538 GOSUE 2Z2038:PRINT MY$:PRINT 

13402 FRINT FO8$5 "LGRUENI&"F7:MY=MY-PTCH,I 

1>-18808: PRINT "I[SCHWARZI"FSIF MY<a THEN 
PRINT "L[ROT]I"? 

13410 GOSUB ZZ9SA: PRINT MY$:FRINT 

13428 FRINT FOS$: "TGRUENIZ"F:MY=BACH,IT1D: 

PRINT "E[SCHWARZI"F:IF MY<@8 THEN PRINT "L 

ROGTI"} 

15434 GOSUB ZEE39:PRINT MY$:PRINT 

12498 FO&S=FOSt" BB" : NEXT I 

1345& PRINT "LESCHWÄRZ IMOECHTEN SIE NOCHE 

INMAL DIE EINZELWERTE": INPUT "SEHEN SJN 

Erd 

ı346& IF QE="J" THEN 15060 

134 7E RETURN 
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Im letzten Programm haben wir festgestellt, daß Anzeigemoduln häufig die kom- 
plexesten Moduln eines Programms sind, das eine Tabelle mit Daten darstellen 
soll. Und dieses Programm ist hier sicherlich keine Ausnahme. Nachdem dies ge- 
sagt wurde, muß jedoch darauf hingewiesen werden, daß dieses Modul unter sei- 
ner oberflächlichen Komplexität ein relativ einfaches Modul ist, das schon be- 
rechnete Zahlen aufnimmt und auf dem Bildschirm ausgibt. Es sieht nur wegen 
seiner großen Anzahl von anzuzeigenden Zahlen so komplex aus. 


Kommentar 


Zeilen 13040-13050: In dieser Tabelle werden die Zahlen für vier Monate ab dem 
vom Benutzer angegebenen Monat angezeigt. Wird jedoch über das Ende des 
laufenden 12-Monat-Zeitraums hinausgegangen, so wird die Tabelle sinnlos. 
Wird also eine kleinere Zahl als vier Monate ab dem Ende des Zeitraums eingege- 
ben, so wird der Anfangsmonat zurückgesetzt. 


Zeilen 13060-13100: Der Titel der Tabelle wird ausgedruckt. Er besteht aus den 
drei ersten Buchstaben der entsprechenden Monate und einem Titel für die Spal- 
te 'durchschnittliches Budget’. 


Zeilen 13100-13170: Die Zahlungsnamen werden aus dem Feld PA$ genommen 
und in der linken Spalte ausgedruckt. Im Anschluß an den Namen werden die 
Zahlen für die vier Monate und die durchschnittliche Budgetzahl für die Zahlun- 
gen, durch Grafikzeichen getrennt, in die Spalten auf dem Bildschirm gedruckt, 
wobei die Beträge mit dem vorhergehenden Modul gegebenenfalls mit führenden 
Nullen formatiert werden. 15 Zeilen werden ausgedruckt, wobei der Bildschirm 
gelöscht und weitere 15 Zeilen gedruckt werden, wenn dies nicht ausreicht. Das 
Programm kann maximal 30 Zahlungstitel verarbeiten. 


Zeilen 13210-13240: Die Titel für die im zweiten Teil der Tabelle angegebenen 
Zahlen werden aus den DATA-Anweisungen gelesen und entlang der linken Seite 
des Bildschirms ausgedruckt - die Tabellenüberschrift bleibt davon unbetroffen 
(der Titel der Budget-Spalte ist nun redundant, wird jedoch nicht gelöscht). 


Zeilen 13260-13440: Trotz ihrer Länge eine einfache Routine, die mit Hilfe der Zei- 
chenfolge FO$ zur Bestimmung der Spaltenposition die entsprechenden Zahlen 
für jeden Monat entlang dem Bildschirm neben den entsprechenden Titeln aus- 
druckt. Am Ende jeder Monats-Spalte werden fünf Cursor-Zeichen nach rechts 
zu FO$ hinzugefügt. Das Verfahren wird in einer neuen Spalte für den nächsten 
Monat wiederholt. Hier wird auf die Benutzung der roten und schwarzen Steuer- 
zeichen verwiesen, mit denen angegeben wird, ob eine Zahlung positiv oder ne- 
gativ ist. Außerdem wird darauf hingewiesen, daß die temporäre Variable MY aus 
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dem Formatier-Modul in den Zeilen 13380 und 13400 dazu benutzt wird, eine Zahl 
zu einer vorher ausgedruckten Zahl hinzuzufügen. Hierzu müssen die 10000, die 
bei dem Formatierverfahren hinzugefügt wurden, zuerst subtrahiert werden. 


Testen der Moduln 6.3.7 und 6.3.8 


Wurden schon einige Daten gespeichert, so sollten diese nun auf dem Bildschirm 
angezeigt werden können. Um die Tabelle zu überprüfen (und nicht nur darauf, 
ob sie richtig angezeigt wird), muß die Bedeutung der verschiedenen Zahlen ver- 
standen werden. 


GESAMT Hier handelt es sich um die Gesamtanzahl sämtlicher in dem Monat vor- 
zunehmenden Zahlungen. 

BUDGET Für jeden Monat gleich, handelt es sich hier um die durchschnittliche 
Summe, die beiseite gelegt werden muß, um sämtliche nicht ausge- 
schlossenen Rechnungen in dem 12-Monat-Zeitraum bezahlen zu kön- 
nen. Ein durchschnittliches Budget deckt nicht unbedingt sämtliche Zah- 
lungen bis zu einem bestimmten Monat ab (z.B. wenn sämtliche 
Zahlungen im ersten Monat geleistet wurden). Mit dieser Zahl wird ange- 
geben, ob der im Durchschnittsbudget berücksichtigte Betrag vor oder 
hinter den tatsächlichen Zahlungen liegt, für die diese Zahl gilt. Am Ende 
des 12-Monat-Zeitraums, ist sie gleich Null. 

HAUPTEIN- Diese Begriffe erläutern sich von selbst. 

KOMMEN/NE- 

BENEINKOM- 

MEN/GE- 

SAMTEIN- 

KOMMEN 

GELDGLEICH- Die Differenz zwischen dem Einkommen und den abgebuchten Beträgen 

GEWICHT für den jeweiligen Monat. 

ANHÄUFUNG Die Differenz zwischen dem Gesamteinkommen und den Gesamtzahlun- 


gen seit Beginn des 12-Monat-Zeitraums. 


Hier wird es zu kleinen Diskrepanzen kommen, da nur Ganzzahlen angezeigt wer- 
den, während bei der tatsächlichen Berechnung mit vollen Zahlen gearbeitet 
wird. So wird das monatliche Budget für eine Zahlung von 47 DM als 3 DM ange- 
zeigt. Dies beeinflußt jedoch die richtige Berechnung des gesamten Monatsbud- 
gets nicht. 
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MODUL 6.3.9 


19880 RENERKKARAKHKEKAKHTHTRT EHRE 
13818 REM AENDERUNGEN 

12a2E REIHE HRORKK ka kakakkak 
12832 PRINT "ERREREBBERERRBEBUILROTILREV 
ERS EINIJAENDERUNGEN” 

1sa4m PRINT "MIELAUIMOEGLICHE BEFEHLE:" 
138509 FRINT " [GRUEN]I1DRECHMUNGSDATEN AE 
NDERN" 

ısasa PRINT " ZIHAUPTE INKOMMEN AENDERN" 
19870 FRINT " 3SIZUSATZE INKOMMEN AENDERN" 


198324 INFUT "MISCHWARZ IBEFEHL: "7QGO:ON QQ 
GOSUB 15129,19199,1919%8 

193990 GCGSUB I4ERA:RETUFN 

121088 INPUT "SIROTINAME DER ZU AENDERNDE 

N RECHNUNG: "70#$ 

ı1a1id FOR Isa TO NCHI-L:IF QSS>PASFCH,TD 

THEN 19138 

13126 PP=1:G0T0 191408 

13130 NEXT I:PRINT "BRECHNUNG NICHT GEFU 

NDEN":FOR I=1 TO Za2a:NEXT I:RETURN 
19148 PRINT "WE" >PASCH,PP>:PRINT "MIBLAU 
JINEUEN WERT EINGEBEN ODER '*' UM INS" 
13145 PRINT "MENUE ZURUECKZUKEHREN: I" 
13158 FOR I=MM TG Y:lil=sItrl2xXı>i1l) 

13168 PRINT MO$«\1I1):PRINT "TIRERBRRPBREBI 
E">PACH,PP,I13>: INPUT G#$ 

ısıira IF QSS>"x" THEN FACH,PP,Ii?=VAL (OS 
3 

151Sd NEXT I:RETURN 

15198 IF QQ=2 THEN PRINT "WIEROTIBHAUPTEI 

NKCMMEN: "3 

19328& IF QG=3 THEN PRINT "SIROTIBEUSRETZ 

LICHES EINKOMMEN: "7 

1982685 PRINT " C'x' LAESST DEN WERT UNGEA 

ENDERT?" 

13214 FOR I1=-MM TC Y:Ii=I+i12#rClI>11ld) 

1s22@ FRINT MOS$\ I1):PRINT "TIBRbRPRRBBEBI 
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13232 IF QG=2 THEN FRINT CICH,I11D; 

ıs324@ IF QQ=3 THEN PRINT C2CH,1I19; 

19258 INPUT Q$:IF Q&<>"x" AND QG=2 THEN 
CISH,I1D=VAL (OS) 

192808 IF Qs<>"#r" AND GG=3 THEN C2<CH,Il?= 
YAL<«QE) 

192708 NEXT I:RETURN 


Ist eine Änderung an einem schon eingegebenen Posten erforderlich, so wird 
dieses Modul benutzt. Mit ihm kann der Benutzer angeben, ob es sich bei dem zu 
ändernden Posten um einen Zahlungstitel, ein Haupt- oder Nebeneinkommen 
handelt. Die entsprechenden Zahlen werden dann angezeigt und der Benutzer 
kann jede Zahl durch Eingabe eines * oder durch Eingabe eines neuen Wertes 
bestätigen. 


MODUL 6.3.10 


280098 REMBIGKIOKAGIOKOI aka ak 
28918 REM RECHNUNG LOESCHEN 

208820 REMIS IR RK 
2Ba3a INPUT "MIBLAUINAME DER ZU LOESCHEN 
DEN RECHNUNG: "70& 

290854 FOR I=da TO NIH>-1:IF QS=PASCH,I> T 
HEN 208088 

za9a7d NEXT I:PRINT "BIROTIRECHNUNG NICHT 
GEFUNDEN" :FOR J=1 TO Z008:NEXT J:RETURN 


28838 NCH>=NCH)I-L:FOR J=I TO NCH>-1:PASC 
H,J?=PRAS$CH,J+1) 

2ea89a FOR K=8 TO 11:PACH,J,KI=PACH,Jt1,K 
I:NEKT K,J:GOSUB 14999:RETURN 


Mit diesem Modul können Budgetüberschriften gelöscht werden. 
MODUL 6.3.11 

17520 REM 
1ra18 REM MONATSWERTE EINSTELLEN 


17a2E REMIS 
ı7e30 PRINT "IISERBITROTILREVERS EINIWERTE 
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FUER BEST. MONAT EINSTELLEN" 
!FO4dE PRINT "SIBLÄUIGEBEN SIE DIE NUMMER 
DES MOMENTANEN": INPUT"MONATS EIN: "MO 
17945 IF M2s8 OR M2>12 THENI179408 
IveSa M2=M2-1:IF M2=MM THEN RETURN 
irasa IF M2<sMM THEN M2=Me+i2 
17@7& FOR I=Hi TO M2-1:11=IrlZrklI>1lD 
17888 PRINT "IBBBITROTILREVERS EINIWERTE 
UER BEST. MONAT EINSTELLEN" 
IFrasa PRINT "BIBLAUIGEBEN SIE DIE WERTE 
FUER DEN MAECHSTEN" PRINT MOS$<CI1)5" EIN: 
i7iea FCGR J=8 TO NtO)-1:PRINT PA$(CA,J)5" 
S"EPAXQ,T,I122"):"7: INPUT PA<C98,J,I112 
ir1ilda NEAT J 
Irlzea INPUT "LROTIBHAUFTE INKOMMEN: "3C1C® 
‚I1D 
17138 INPUT "EGRUENIBEUSAETZLICHE EINKOM 
MEN? "ZC2<B,I13:NEKT I 
17190 MM=ME+IZRCM2>L1I: YSMM+LLSH=9:GOSUB 
14809:G0OS5UB 159098 :RETURN 


Dieses Modul ermöglicht Änderungen des Monats. Gibt der Benutzer an, daß der 
laufende Monat geändert wurde, so werden neue Zahlen für jeden Zahlungstitel 
und für die Einkommenstypen für jeden der vergangenen Monate angefordert. 
Sie werden an das Ende des 12-Monat-Zeitraums angefügt. Begann der alte Zeit- 
raum mit dem Monat Mai und beginnt der neue Zeitraum mit Juli, so wird der Be- 
nutzer also aufgefordert, nur Zahlen für Mai und Juni einzugeben, da diese nun zu 
den beiden letzten Monaten des 12-Monat-Zeitraums werden. 


Testen von Modul 6.3.11 


Nun sollte der Benutzer die Zahlen für die Zahlungstitel oder das Einkommen än- 
dern, die Zahlungstitel löschen und den Zeitraum ändern können, den das Pro- 
gramm abdeckt. Um das letzte Modul zu testen, muß bei Zeile 15000 ein temporä- 
rer RETURN-Befehl eingefügt werden. 


MODUL 6.3.12 


\ I REF SRIEODIORRRRRKKK 
1530 KIM HYPOTHETISCHE WERTE SETZEN 
ISEZLE REPEEARKEEFEEE ER EKRUHHHKIERNIKR 
IS2SA TeiI=Tin) 

1a FÜR IsE TO MiEI-1:PASCL,II=SPAS(A,l 
S=MG<CL,T>=MOta,T) 

1z25& FOR J=s8 TO 11:PRAC1,1,13=PA(98,1,J3: 
NE=T J,1 

15a8A FOR J=8 TO 11:PTC1,J3=PTi8,J3:BDfl 
‚J3=BD(98,.I19:C1<1,J93=C11X9,J3 

15878 BAt1,D=BASO,TI:NEXT TINSLI=NCOIER 
ETURN 


Dieses einfache Modul ist eines der wichtigsten Moduln in dem Programm. Es 
kopiert die in die wahre Seite der Felder eingegebenen Daten in die hypotheti- 
sche Seite. Einer der wichtigsten Punkte dieses Programms besteht darin, daß 
der Benutzer Daten in die hypothetische Seite der Felder eingeben kann, um die 
Auswirkungen einer Finanzentscheidung zu testen, ohne daß sich dies auf ir- 
gendeine Weise auf die wahren Daten auswirkt. 

Sämtliche Operationen des Programms können mit hypothetischen Daten aus- 
geführt werden. Ist der Benutzer zufrieden, so braucht er nur dieses Modul auf- 
zurufen und die Daten in der hypothetischen Seite werden sofort zu wahren Da- 
ten umgesetzt. Dieses Modul wird automatisch aufgerufen, wenn der Monat 
zurückgesetzt wird. Ansonsten würden die beiden Seiten der Tabellen mit ver- 
schiedenen Zeiträumen arbeiten. 


Testen von Modul 6.3.12 


Nun können die hypothetischen Seiten sämtlicher Funktionen getestet werden, 
indem einfach hypothetische Daten angegeben werden, wenn die Funktionen 
aufgerufen werden. Zahlungen werden auf beiden Seiten addiert und subtrahiert. 
Danach wird anhand der Tabellenanzeige geprüft, ob keine der beiden Seiten die 
andere beeinflußt. Anschließend werden mit diesem Modul die wahren Daten in 
die hypothetische Seite kopiert. Hier wird darauf hingewiesen, daß die hypotheti- 
sche Seite bei der ersten Initialisierung des Programms leer ist. 

Arbeiten die Funktionen der hypothetischen Seite einwandfrei, so kann das Pro- 
gramm benutzt werden. 
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Zusammenfassung 


Dieses lange Programm ist sehr leistungsfähig, wenn es richtig eingesetzt wird. 
Allerdings ist einige Übung erforderlich, um es maximal nutzen zu können. Wird 
es ernst genommen, so kann es einige überraschende Informationen über den 
Status der Finanzen im Laufe des ganzen Jahres vermitteln. So gibt es an, wann 
die Geldmittel etwas knapp werden und wann etwas mehr Geld zur Verfügung 
steht, wie die Zahlungen neu angeordnet werden können, um etwas mehr Geld 
zu Weihnachten oder im Urlaub zur Verfügung zu haben, wie sich eine neue Ver- 
pflichtung oder ein höheres Einkommen auswirkt. 

Hier darf jedoch nicht vergessen werden, daß der Commodore 64 mit diesem 
Handbuch zum Einsatz durch den Benutzer vorbereitet werden soll. Konnte die- 
ses Programm problemlos ausgetestet werden, so gibt es keinen Grund, warum 
es nicht an andere Anwendungen angepaßt werden sollte, die eine flexiblere Ein- 
gabe und Verarbeitung von Daten erfordern, zusammen mit einer klaren Präsen- 
tation in Tabellenform und der Möglichkeit, zwei Datengruppen gleichzeitig aus- 
zuführen. Das Programm kann als Grundlage für den vertrauensvollen Einsatz 
des Commodore 64 betrachtet werden. 


Ein Schritt weiter 


1. Dieses Programm könnte noch nützlicher sein, bestünde die Möglichkeit, die 
hypothetischen Felder in wahre Felder zu kopieren, sobald sich der Benutzer ent- 
scheidet, mit geschätzten Daten weiterzuarbeiten. Dies setzt nur eine kleine Än- 
derung an einem Modul voraus. 

2. An der Länge des Programms könnten Einsparungen vorgenommen werden, 
indem die Anzahl von Feldern reduziert wird. Dies könnte geschehen, indem die- 
selbe Datenmenge in weniger, jedoch komplexere Feldern gesetzt wird. Dann 
könnten die Daten unter Umständen mit einer kleinen Anzahl von Schleifen aus- 
gedruckt werden. 

3. Soll nur ein einziger Wert für eine Zahlung oder für das Einkommen geändert 
werden, so müssen alle zwölf Zahlungen durchgegangen werden. Hier könnte 
versucht werden, eine Funktion hinzuzufügen, mit der in die Mitte des Zeitraums 
gesprungen und aus der Serie herausgegangen werden kann, sobald die ge- 
wünschte Änderung vorgenommen wurde. 
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KAPITEL 7 
MUSIC 


Eine der erfreulichsten Seiten des Commodore 64 ist die Art und Weise, mit der 
Qualität und Vielfalt der Tonmöglichkeiten eine neue Welt für die Benutzer von 
Homecomputern eröffnen. In nicht allzuferner Zukunft werden fraglos ganze Bü- 
cher über die Benutzung des Sound Interface Device (SID) Chips des C64 ge- 
schrieben werden. 

Die große Komplexität der Möglichkeiten des SID-Chips bedeutet, daß kein ein- 
zelnes Programm ihnen voll gerecht werden kann und daß ein Kapitel eines allge- 
min gehaltenten Buches nur eine Einführung in die nahezu grenzenlosen Kombi- 
nationen der zur Verfügung stehenden Töne darstellen kann. Nachdem dies 
gesagt wurde, wird jedoch hier ein Programm vorgestellt, das eine feste Grundla- 
ge für künftige Experimente und Tonschöpfungen darstellt. Dieses Programm 
soll dem Benutzer nicht nur ermöglichen, Töne einzugeben und zu spielen (was 
der Fall ist), sondern soll ihm jeden Teil des SID direkt zugänglich machen. Ein 
Großteil der Möglichkeiten des SID werden einfache durch Benutzung dieses 
Programms eingesetzt. 

Als erstes muß daran gedacht werden, daß eine normale Musiknote nicht nur eine 
Vibration mit einer bestimmten Frequenz darstellt, sondern in Wirklichkeit eine 
Kombination verschiedener hoher und niedriger Frequenzen ist. Um eine Note zu 
erzeugen, müssen demzufolge zwei separate Frequenzen, eine hohe und eine 
niedrige, eingegeben werden. Jede der drei Stimmen des SID sieht diese beiden 
Eingaben für jede gespielte Note vor. Das Programm muß in der Lage sein, Noten 
in einer dem Benutzer verständlichen Form zu akzeptieren und diese Noten dann 
in eine von dem SID benutzbare Form zu übersetzen. 

Zweitens variiert die Intensität einer bestimmten Note auf komplexe Weise, wäh- 
rend die Note gespielt wird. 


a) Die erste Phase der Note wird als ANSCHLAG bezeichnet. Hier handelt es 
sich um die Geschwindigkeit, mit der der Ton von Nichts zur Spitze ansteigt. Je 
kürzer die Dauer des Anschlags, desto schärfer der Ton. 

b) Die zweite Phase wird als ABSCHWELLUNG bezeichnet. Während dieser Pha- 
se fällt die Note von ihrer ursprünglichen Spitze ab. 

c) Nach diesem ersten Abfallen geht die Note in die HALTE-Phase, mit der die 
Länge des Haupttons bestimmt wird. 

d) Als letztes geht die Note in die Phase des AUSKLINGENS, die wie die AN- 
SCHLAG-Phase scharf oder gemächlich sein kann. 

Verschiedene Musikinstrumente verfügen über verschiedene Tonqualitäten, un- 
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abhängig von den gespielten Noten und der Form dieser Noten. Diese Unter- 
schiede hängen von der Wellenform des Tons ab, den das Instrument erzeugt. 
Bei dem SID kann jede der drei Stimmen eine von drei musikalischen Wellenfor- 
men erzeugen und eine weitere weiße Rausch-Wellenform, die beim Erzeugen 
von Rauscheffekten von besonderem Nutzen ist. 

Von den drei musikalischen Wellenformen kann eine, die Rechteckfrequenz, 
selbst einen beträchlichen Grad der Variation erzeugen, indem die Länge der Im- 
pulse geändert wird, aus denen die Frequenz besteht. 

Nachdem schließlich die gewünschte Frequenz, der Ton und die Form der Note 
erzeugt wurden, können die Noten mit dem SID-Chip gefiltert werden. Dies be- 
deutet, daß verschiedene Frequenzen innerhalb der Note in der Lautstärke ver- 
mindert werden können, während andere unberührt bleiben. 


Music: Variablentabelle 


FI%(3): Filtereigenschaften für die drei Stimmen. 

HF%(2,1000): Hochfrequenz-Werte für jede Note in der zu spielenden Melodie. 
IN: Initialisierungs-Zeiger. 

LF%(2,1000): Niederfrequenz-Werte für jede Note in der zu spielenden Melodie. 


RS: Separator für Datendateien. 

NL: Länge der Note. 

NO% (1,95): Hoch- und Nieder-Frequenzwerte für die 96 zur Verfügung stehenden 
Noten. 

NT: Notenwert aus Anhang M des Bedienungshandbuchs. 

VO% (2,6): Vom Benutzer definierte Werte, die mit POKE in den SID-Chip gesetzt 
werden müssen, um die Toneigen schaften der drei Stimmen festzulegen. 

VS: Anfangsadresse einer Stimme in dem SID. 

WF%(2,1000): Wellenform-Werte für jede zu spielende Note. 

ww: Wellenform-Wert für jede einzelne Note. 

MODUL 7.1.1 


1192002 REMBSRRIGOK KAIRO RK 

iıigaı0 REM MENUE 

11220 REM K 

11039 POKE 53281,15:FRINT "JSrBBppBppERBI 
[ROTILREYERS EINIMUSIC" 

11042 PRINT "TBLAUITSPIOEGLICHE BEFEHLE:" 

11858 PRINT "BMIGRUENJI>STIMMEN EINSTELLE 

Mn" 

11eS5@ PRINT"BEIMELODIE ABSPIELEN" 

1107@ FRINT"BS>NOTEN BERECHNEN" 
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118380 FRINT"BADLADEN-SFEICHERN" 

11a30 FRINT"BEIIMITIALISIEREN" 

11188 FRINT "WEIBEENDEN 

t1ı1ıta INPUT "MIROTIBEFEHL:"?ZEPRINT "3" 

ı1ıı2@a IF IN=SA AND (Z<S> THEN PRINT "ESCH 

WARZ INOCH NICHT INITIALISIERT!" 

11125 FOR I=1 TO 2008:NEXT:GOTO 11acd 

11130 ON Z GOSUB 15909,14800,13909,170008 
‚l2z008,111492:6G0T0 11908 

11190 PRINT "dep FEILIEHIE | 

[RCTI[REVERS E INIPROGRAMM BEENDET": :END 





Ein Standard-Menümodul 


MODUL 7.1.2 


180008 BREMER 

ıi8s81AM REM GÄATEN FUER NOTEN-TABELLE 

1382E REISE 

I1SE3Ed REM NÜUTEN FREQUENZEN 

1en4E DATA 268,284,301,318,337,358,379,4 

21,425,9451,477,506 

1sea52 DATA 5S26,568,602,637,675.716,7593,8 

&3.351,392,9355,19012 

jeasa DATA 1972,1136,1204,1275,1351,1432 

‚}217,1607,1703,1884,1911,2025 

isaro DATA 2195,2273,24908,2551,2743,2864 

‚3834 ,32153,3406 ,3603,39823,4050 

18082 DATA 4291,4537,4817,5183,59497,5728 

‚8863,6930,6812,7217,7697,8101 

18294 DATA 8583,9094,9634,10297,10814,11 

457,121393,12368,13625,19435,152934,16203 

isiaa DATA 17167,18188,19269,28415,21523 

‚22315,24278,259721,27251,23371,30538 

ı811a DATA Szaa7 

leiz0 DGRTA 34334,36376,38539,495330,43258 

an 348556,519443,59502,57743,61176 
sisea DATS S4e1d 


Die Daten in dieser Tabelle stellen einfach eine Abkürzung für die Eingabe der 
Notenwerte mit hoher und niedriger Frequenz dar. Jede Zahl stellt 256 mal den 
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Wert der Note mit der hohen Frequenz plus dem Wert der Note mit der niedrigen 
Frequenz dar. 


MODUL 7.1.3 


12206 REMRSOKAH HIHI OO KK 
I12G1Z REM INITIRLISIEREN 

128208 REPORT 
12E3E CLR:DIM NORL1,SS9:FOR 1-98 TO 35:RE 
RD NN:NOKKE,TD>=INTCNM2SG) 

12940 NORC1,T2>=NN-256%INTINN2S63 :NEKT 
12850 DIM YVORMf2,69,FIRK3),LFAI2,10083,HF 
Ar2, Jaog) ,WF%i2,10088) 

12878 IN=1:RE$=CHRE$(13) 

1298820 GCTO 1108 


Die Benutzung der hier definierten Hauptvariablen wird in der Variablentabelle er- 
läutert. 


Kommentar 


Zeilen 12030-12040: Die Hoch- und Niederfrequenz-Werte für jede der 95 Noten 
werden gelesen und entschlüsselt. Sie können nicht in Form einer einzelnen Zahl 
im Feld gespeichert werden, da es sich um ein ganzzahliges Feld handelt, die nur 
Zahlen bis zu einem Wert von 32767 aufnehmen kann. Die Notenwerte werden in 
NO% (0) für die hohe Frequenz und NO%(1) für die niedrige Frequenz gesetzt. 


Testen von Modul 7.1.3 


Nachdem dieses Modul aufgerufen wurde, sollten aus der Tabelle Hoch- und 
Niederfrequenzwerte gelesen werden können, die etwa den Werten in Anhang M 
des Bedienungshandbuchs entsprechen. Sie werden nicht genau identisch sein, 
da die hier benutzten Werte aus dem Programmierhandbuch (Band 1 der Sach- 
buchreihe) stammen, in dem eine etwas andere Tabelle steht. 


MODUL 7.1.4 


15002 REMBSIR SO RRRRkkk 
15a19 REM SETZEN DER STIMMEN 

15828 REMIS Aka akakakakakak 
15039 INPUT "WSILGRUENISTIMME MUMMER 1-3 
JE"ZYEIF Y<1 OR Y>3 THEN 150939 

1S5a40 YVS=SI4aTEr/RriV-12 


15050 PRINT "IERREEREEEBILROTILREVERS EI 
NISTIMME" 2 Y 

15868 REMIS 
1507@ TI$="FREQUENZ (LOW-BIT:Q-255):" 
15088 PRINT "SCHWARZ I" TISFVOXKV-1,B35: 
as="" 

15E99 INPUT QS:IF Qs<>"" THEN VOXV-1,2) 
=VAL AS) 

15188 REMIS 
1511@ TI$="FREQUENZ CHIGH-BIT:O-159:" 
15120 PRINT T18:V0O%(Y-1,2) AND 157 :Q8="" 
15138 INPUT Q$:IF Q#<>"" THEN VORCV-1,3) 
=VAL (AS) 

15148 REMISWRSE RR SS 
15158 T1$="RAUSCHGENERATOR (1=AN/O=AUS): 
151S@ PRINT Ti#? (VOXCY-1,4) AND 128)/128 
z:QS="" 

15178 INPUT Q#:IF Qs<>"" THEN YVOXCY-1,4) 
=(VOXV-1,4) AND 126) OR (VAL(Q#)%123) 
15186 REMIS 
15198 Ti#="RECHTECKFREQUENZ (1=ANO=AUS) 
152aG PRINT Tisr (VOXCV-1,4) AND 64976451: 
as="" 

15212 INPUT Q$:IF Q$C>"" THEN VOXW-1,4) 
=(VOXLY-1,4) AND 138) OR (VAL(Q$)%65) 
1S22E8 REMIS AO 
15238 T1$="SAEGEZAHNFREQUENZ X1=AN/O=AUS 
It 

1524@ PRINT Ti1#? (VOXCV-1,4) AND 329/383: 
as="" 

15250 INPUT Q$:IF Q$<>"" THEN VOXCY-1,4) 
=S(VOX(Y-1,4) AND 222) OR VAL(GS) #33 
IS2ZEd REM RE E 
15270 TI$="DREIECKFREQUENZ (1=ANFA=AUS): 
1523@ PRINT Ti83 (VOXY-1,4) AND 16971651: 
as="" 

15290 INPUT QF:IF Qsc>"" THEN VOXCV-1,4) 
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VOM Y-1,42 AND 2389 OR YAL<OSIKL? 
1S3CE8 REMIS HE 
15585 Ti$="DIESE STIMME AUSSCHALTEN K1=J 
AFA=NEINIES" 

123120 FRINT TIERSVOHLW-1,93 AND 89,85 :08 


155209 INFUT OS: IF Q$<S>"" THEN VORIY-1,499 
S(VY DAR -1,4) AND 2462 OR VAL<SQS?KI 

15230 REMFEFEFEHFEHETEEREEN HF HEHE 

15348 Ti&="RINGMODULATION"+STREIYDH" MIT 


"+STREIWEHL-S EVD dH NE ISAN/OSAUSDE" 
123558 PRINT Ti (VORCV-1,4) AND 49.45 :08 


I5SE8 INPUT QE:IF QEFESH"" THEN VORCVY-1,4) 
=ZLYOKiV-1,42 AMD 2502 OR YALIOEIAS 

15278 REITER. 
ıS3SSA Ti&="SYNCHRONISATION"+STREBIVMDH" MI 
T"+STREIWY-IH2r (VL) Hr" LSANZOSAUSIS" 
155986 PRINT TI: CVYORRWY-1,4) AND 29725:08$ 


—-ın 


154C@ INPUT GA$:IF QSC>"" THEN VOX(Y-1,4) 
=iNOHKV-1,4) AMD 253) OR VAL<AE)K2 

15412 REMIFGDIOSIO IH 
15420 Tis="STIMMANSCHLAG (9-15): " 

15438 FRINT Ti#} (VOXW-1,5) AND 2403/16;5 
as 

15449 INFUT G#:IF Q&<>"" THEN VOXCY-1,5) 
=KVOHY-1,5) AND 15) OR WAL<QS)#16 

153932 REIT AGO Ok 
IS450 TI8S="STIMMABSCHWELLUNG (9-15): " 
15479 SRINT TIEFYOXKV-1,5) AND 157 :1Q$="" 
15388 INPUT Q$:IF Q$<>"" THEN VOX<Y-1,5) 
S(YOKLY-1,5) ANE 240) OR YAL<O*) 

15452 REMIS K 
15520 TI$="HALTEN DER STIMME (@-159:" 
1S51a PRINT Ti8:(VOXiW-1,6) AND 2407183 
:Qs="" 

15528 INPUT Q#$:IF Q$<>"" THEN VOXCVY-1,6) 
=(yOXKY-1,8) AND 15) OR YAL(QE)IKLE 

15532 REMOTE IN 
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15540 TI$="AUSKLINGEN (9-159:" 

15550 PRINT TIEVOXW-1,8) AND 157 :Q8="" 
1556@ INPUT Q$:IF QFi}"" THEN VOXLY-1,8) 
SCYOKCW-1,E) AND 249) OR VAL(as) 

IISSTE REMEEHREREEEIOKIECH ER HHREHE 
1558@ TI#s="FILTER CUTOFF LOW f9-7):" 
15530 PRINT TISFFIMCO) AND 77:Q#="" 
15698 INPUT QAS:IF QA$<>"" THEN FIXH(@)=CFl 
ie) a 248) OR YAL(n#) 

155 REFDEEEIIRI 
ss T1#="FILTER CUTOFF HIGH (8-255):" 
15830 PRINT TISSFIHC1)R:QE="" 

1564 INPUT QS:IF Q#i>"" THEN FIHCLI=YAL 
<a#) 

1550 REMIS 
1SES2 TL$="FILTERRESONANZ <Q-159:" 

1SGTA PRINT TIESCFIMCE) AND 240) 16: :Q8= 
15682 INPUT Q&:IF Qs<>"" THEN FIXEI=CFI 
223 AND 15> OR YALIOF)#IE 

1IEZER REMAKE HERR HEHE HEHE HH 
1S7OR Tis="DIESE STIMME FILTERN (1=JA/Q= 
NEIMI:G® 

15719 FRINT TISKFIHKE) AND Bt(Y-1I)/RtC 
Y-ldzıasa"" 

15720 INPUTGE: IFQSC>"" THEN FIALBISCFIHG 
2) AND 1255-2t114-199) OR VAL(AS)H2rt(V-1) 
15730 REMIS N 
ıSr4@ IF v<> 2 THEN 15780 

1575@a Ti$s="CUT-OFF STIMME 3 (1=JA/a=NEIN 


3 


157860 FRINT TIS:<FIMC3>) AND 128971257 :08 
15770 INFUT QE:IF Q#<£>"" THEM FIRCSISKFI 
rx3> AND 1272 OR YALIQEI#H123 

15780 REMAKE FEEOOOEIEEEKFEK 
15730 T1S="HOCH-PASS FILTER %1=AN/O=AUS? 


1S88E FRINT TI$?KFIACS2 AND 6497697:Q05=" 
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15812 INPUT QS: IF Q$<i>"" THEN FIHM<SI=CFl 
7032 AND 159123 OR YAL<AS>IKCA4 

15828 REMIS aka 
15839 Ti$="BAND-PASS FILTER <1=AN/O=AUS? 


15844@ PRINT TI$7<FIXAC3> AND 3297325 :085=" 
1585@ INPUT QE:IF Q$<>"" THEN FIHMCSI=CFI 
AX3> AND 2235 OR VAL(OS?K3Z2 

15868 REM 
15870 TIi&="LOW-PASS FILTER X1=AN/BO=SAUSI: 


iS8SR PRIMT TiI$rCFIACH) AND 169/165 :Q085=" 
15898 INPUT QSr IF QE<>"" THEN FIKISDSKFI 
AX3I AND 233) OR VAL\(QSI#16 

152208 REFDBOOR I 
15518 TiS="LAUTSTAERKE A-1598" 

15926 FRINT TIS:FIAC3) AND 157 :08$="" 
159330 INPUT QO&:IF Q#$<>"" THEN FIH(3)=FIH 
3) OR YAL<COS) 

15940 FOR I=d TO 6: IF YOX(V-1,13>255 THE 
N GOTO 15979:NERT 

159358 FOR Isa TO 3:1IF FIKCII>2SS THEN GO 
TG 1593708:NERKT 

15968 RETURN 

15378 PRINT"FEHLERHÄFTE EINGABE 1!" 

15388 PRINT "BITTE UEBERARBEITEN SIE DIE 
S EINGABE NOCHE INMAL . " 

15938 FOR I=1 TO 2808:NEKT:GOTO 15008 


Obwohl dieses Modul sehr lang erscheint, ist es in Wirklichkeit äußerst einfach. 
Es soll dem Benutzer ermöglichen, sämtliche relevanten Funktionen in dem SID- 
Chip separat zu adressieren. Die Werte werden dann in die Felder VO% und FI% 


gespeichert, bis eine Melodie gespielt werden soll. 


Kommentar 


Zeilen 15030-15040: V ist gleich der Stimm-Nummer, die der Benutzer setzen 
möchte. Die Adresse 54272 ist der Anfang des SID-Chips, wobei die Hauptteile 
jeder Stimme sieben Datenbytes belegen, so daß die Anfangsposition der ent- 


sprechenden Stimme mit 15040 berechnet wird. 
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Zeilen 15060-15130: Diese beiden Routinen legen die Schnittlänge fest, wenn der 
Benutzer die Rechteckfrequenz benutzen möchte. Der aktuelle Wert jeder Routi- 
ne wird angezeigt und bleibt unverändert, wenn die RETURN-Taste betätigt wird. 


Zeilen 15140-15170: Diese Routine legt die zufällige Rauschfrequenz für die Stim- 
me fest. Hier wird darauf hingewiesen, daß wir hier nicht ein gesamtes Byte im 
Computer adressieren, sondern nur ein Bit (in jedem Byte sind acht Bits oder 
Ein-/Aus-Schalter vorhanden). Hierzu werden die AND- und OR-Funktionen be- 
nutzt. Um anzugeben, ob ein bestimmtes Bit gesetzt ist, wird der Wert in dem 
Feld ausgedruckt, nachdem er mit AND mit 2 in die Potenz der Nummer des ent- 
sprechenden Bits erhoben wurde - die Bits sind von O0 bis 7 in aufsteigender Rei- 
henfolge von rechts nach links numeriert. Ist das Bit gesetzt (eingeschaltet), so 
wird derselbe Wert zurückgegeben. Ist es nicht gesetzt, so wird der Wert O zu- 
rückgegeben. Um den zurückgegebenen Wert entweder zu einer Null oder einer 
Eins zu machen, wird er durch zwei in der Potenz der Bitnummer dividiert. Um 
den Wert des gewünschten Bits zu ändern, muß der Wert des ganzen Bytes mit 
AND mit 255-2T Bitnummer verknüpft werden. Dadurch wird das gewünschte Bit 
auf Null gesetzt und alle anderen Bits bleiben unverändert. Das einzelne Bit wird 
nun mit OR mit der eingegebenen 1 oder O verknüpft, so daß sein Wert je nach- 
dem entweder auf O0 oder 1 gesetzt wird. 


Zeile 15170: Auch wenn das Bit, das gesetzt werden soll, die Nummer 7 (den 
Wert 128) aufweist, verknüpfen wir in Wirklichkeit das Byte durch OR mit 129, so 
daß Bit 7 und Bit O gesetzt werden. Dies ist erforderlich, da die Frequenzwerte 
erst dann einen Ton erzeugen, wenn Bit 0 gesetzt ist. 


Zeilen 15180-15290: Diese drei Routinen führen dieselbe Funktion für die Bits 6-4 
aus, die drei anderen Frequenzen. 


Zeilen 15300-15400: Mit diesen beiden Routinen kann der Benutzer die Ausgabe 
dieser Stimme mit der Frequenz und der Notenform einer anderen Stimme modu- 
lieren, wobei es oft zu überraschenden Ergebnissen kommt. Die andere Stimme 
braucht nicht unbedingt zu spielen, für sie müssen jedoch Frequenz- und Noten- 
formwerte eingegeben werden. Der Einsatz dieser beiden Funktionen wird nur 
durch Experimentieren verständlich. 


Zeilen 15410-15560: Mit diesen vier Routinen kann ANSCHLAG, ABSCHWEL- 
LUNG, HALTEN und AUSKLINGEN gesetzt werden. In diesen Routinen werden 
keine einzelnen Bits gesetzt, sondern Gruppen von jeweils vier Bits. Wird der By- 
tewert mit AND mit 240 und danach mit OR mit einem Wert von O bis 15 verknüpft, 
so wirkt sich dies auf die Bits 0 bis 3 aus. Wird das Byte mit AND mit 15 verknüpft 
und danach mit OR mit einem Wert (0 - 15)*16 verknüpft, so wirkt sich dies auf die 
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Bits4 bis 7 aus. 


Zeilen 15570-15680: Die Frequenzen, mit denen die Filter des SID arbeiten, kön- 
nen vom Benutzer mit diesen drei Routinen gesetzt werden. Diese Werte gelten 
dann für sämtliche Stimmen, für die Filter gesetzt sind. 


Zeilen 15690-15890: In den restlichen Abschnitten kann der Benutzer die drei zur 
Verfügung stehenden Filtertypen auf ein oder aus setzen. Der Hochpaßfilter 
überträgt unveränderte Frequenzen über dem vorher gesetzten Wert. Der 
Niederpaßfilter führt dieselbe Funktion für die niedrigen Frequenzen aus. Mit dem 
Bandpaßfilter kann durch ein Band mit Frequenzen im mittleren Bereich gegan- 
gen werden. Sind alle drei Filter gesetzt, so wird das Volumen der ganzen Note 
reduziert. Der Benutzer kann wählen, ob eine bestimmte Stimme gefiltert wird 
oder nicht. 


Zeilen 15730-15770: Bei Stimme 3 ist ein besonderes Bit vorhanden, mit dem die 
Ausgabe der Stimme abgeschnitten werden kann. 


Zeilen 15910-15930: Das Volumen, mit dem Noten gespielt werden, wird für alle 
Stimmen gleichzeitig gesetzt. 


Zeilen 15940-15990: Da bei der Eingabe von Werten bis zu dieser Stelle keine 
Fehlerprüfungen vorgenommen wurden, wird der Inhalt der Felder überprüft, um 
festzustellen, ob keine größeren Wert als 255 vorhanden sind, da der Versuch, 
einen derartigen Wert mit POKE in ein einzelnes Byte zu setzen, zum Programm- 
stopp führen würde. 


Testen von Modul 7.1.4 


An dieser Stelle kann das Modul nicht voll überprüft werden, da keine Routine 
vorhanden ist, mit der eine Melodie gespielt werden kann. Allerdings kann eine 
vernünftige Überprüfung vorgenommen werden, indem die durchgeführten Ein- 
gaben sorgfältig festgehalten werden. Mit Hilfe der Auflistung können dann die 
Werte in den Feldern VO% und FI% ausgedruckt werden, um zu sehen, ob sie 
mit der Eingabe übereinstimmen. Wird beispielsweise der Höchstwert für jede 
Eingabeaufforderung eingegeben, während die Stimme auf 1 gesetzt ist, so 
müßte 255 in VO% (0,2-6) stehen. 


MODUL 7.1.5 


13889 REMIS 
13818 REM BERECHNUNG 
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13020 REMAKE SKI 
130838 RESTORE:FOR I=8 TO 935:READ A:NEKT 
1384@a TL=8:FOR I=a TO ZiYL=1 

1sa5a RERD NT,NL:IF NT=8 THEN 13148 
139862 Wal=YOrtCI,43: IF NTSB THEN NT=-NT:kW 
=1 

13965 NT=12#+INT(CNT/16EI+NT-16#INTINT/1E) 
15878 IF NLS>1 THEN 139838 

13858 HFACI,YLISNORCO,NTI:LFACT,YLI=SNORGC 
1,NT3EWFZCI,VLISWWSVL=SVYL+1:G0OTO 130598 
138908 FOR J=1 TO NL-1:HFAXI,VLI=SNOXCO,NT 
>:LFAXI,VYLI=SNOZKEL,NTITWFRCL, UL) SUN 

13188 YL=YL+1:NERT I 

13119 HFAXIT,YL3I=SNOKIO,NTISLFAÄKELT,YLISNORX 
1,NTI:WFRCTNYLISWW- LS VLSVLH1 

13128 IF WFEAXI,VYL-1DSB THEN WERSIWL-1>= 
1 

js1s5a GOTO 13054 

131948 IF VL>TL THEN TL=YL 

13158 NEXT I 

13168 RETURN 


Dieses Modul nimmt den vom Benutzer in Form von Datenanweisungen angege- 
benen Ton und kompiliert ihn in eine Form, die von dem SID gespielt werden 
kann. Dies ist erforderlich, damit das Programm verschiedene Notenlängen be- 
rücksichtigen kann. Die tatsächlich vom Programm gespielten Noten weisen alle 
dieselbe Länge auf, die von einer Zeitschleife festgelegt wird. Längere Noten 
werden gespielt, indem eine Reihe von Noten mit der angeforderte Länge zusam- 
men gespielt werden, wobei zwischen den einzelnen Teilen der Noten keine Ab- 
sätze festgestellt werden können. Die Notenlängen können von Stimme zu Stim- 
me variieren, müssen jedoch so beschaffen sein, daß sämtliche benutzten 
Stimmen koordiniert sind. 

Um die Daten für eine Melodie festzulegen, brauchen nur für jede Note ihre Num- 
mer aus Anhang M des Bedienungshandbuchs und ihre Länge angegeben zu 
werden. Die Einheiten, in denen die Länge aufgezeichnet wird, hängen von der 
kürzesten Note ab, die gespielt werden soll. Durch Verkürzung der Zeitschleife 
bei Zeile 14180 können kürzere Noten gespielt werden. Dies bedeutet jedoch, 
daß längere Noten aus mehreren der kurzen Einheiten erstellt werden müssen. 
Der Nachteil hierbei besteht darin, daß jede einzelne Einheit einer Note, unabhän- 
gig davon, wie kurz oder lang sie von der Zeitschleife gestaltet wird, Platz in je- 
dem der Felder LF%, HF% und WF% belegt, so daß mit Verkürzung der Zeit- 
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schleife der für die Aufnahme einer Melodie mit einer bestimmten Länge erfor- 
derliche Speicherplatz proportional anwächst. 


Kommentar 


Zeile 13030: Da die Stimmeinstellungen und die Notenwerte während der Ent- 
wicklung der Melodie geändert werden, müssen die Daten der Melodie mehrmals 
gelesen werden. Da die Tabelle mit Notenwerten vor den Melodiedaten stehet, 
muß der DATEN-Zeiger mit RESTORE zurückgesetzt und die gesamte Notenta- 
belle jedesmal bis zum Anfang der Melodiedaten gelesen werden. Der DATEN- 


Zeiger kann nicht auf einen bestimmten gewünschten Punkt in dem Programm 
gesetzt werden. Er kann nur an den Anfang der Daten zurückgesetzt werden 
oder weiterhin auf das Datenelement zeigen, das auf das letzte gelesene Element 
folgt. 


Zeile 13040: Diese Schleife gewährleistet, daß die Melodiedaten für jede Stimme 
kompiliert werden. Mit der Variablen VL wird die Länge der Meldie für jede einzel- 
ne Stimme gespeichert. 


Zeile 13050: Notenwert und Notenlänge (NL) werden aus den Melodiedaten gele- 
sen. Ist der Notenwert gleich Null, so geht das Programm davon aus, daß die Da- 
ten dieser Stimme vollständig sind und geht zur nächsten. 


Zeile 13060: Der Wert für die Frequenz der aktuellen Stimme wird aus dem Feld 
VO% gelesen. Handeltessich bei dem Notenwert um eine negative Zahl, so wird 
der Wert der Frequenz um 1 gekürzt, so daß Bit O0 des Frequenzwertes ausge- 
schaltet wird. Dadurch ergibt sich eine Ruhepause mit einer Länge von NL 
anstelle einer Note mit einem Ton. 


Zeilen 13070-13080: Ist die Notenlänge gleich 1, so werden die hohe Frequenz 
und die Frequenzdaten in den entsprechenden Feldern gespeichert. Die Stimm- 
länge wird um 1 erhöht. 


Zeilen 13090-13130: Ist die Notenlänge größer als 1, so werden NL-1 aufeinander- 
folgende Leerstellen im Feld mit den Frequenz- und Wellenform-Werten gefüllt. 
Bei der letzten Einheit der Note wird der Wellenform-Wert um 1 gekürzt, so daß 
die Note natürlich ausklingen kann. Werden für eine Stimme keine anderen Daten 
als 0,0 eingegeben (d.h. soll diese Stimme nicht benutzt werden), so kann der 
Frequenz ein Wert von -1 zugewiesen werden. Dadurch stoppt das Programm, 
falls versucht wird, diesen Wert mit POKE in das Programm zu setzen. Mit Zeile 
13120 wird geprüft, ob dies geschehen ist. 
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Zeile 13140: Die Länge der Melodie für die aktuelle Stimme (VL) wird mit TL vergli- 
chen. TL enthält zuerst Null und danach die Länge der längsten Stimme/Melodie. 
Dadurch wird gewährleistet, daß die Melodie bei Abspielen nicht stoppt, bevor 


der gesamte Inhalt jeder Stimme/Melodie erschöpft ist. 


Testen von Modul 7.1.5 


Auch dieses Modul kann erst vollständig getestet werden, wenn die Melodie 
wirklich gespielt wird. Werden jedoch einige Melodiearten eingegeben, wie in 
Modul 8 angegeben, wobei mindestens für Stimme 1 eine Wellenform festgelegt 
wird, so sollten durch Aufruf dieses Moduls die richtigen Hoch- und Niederfre- 
quenzwerte in HF% und LF%, und die Wellenform-Werte in WF% gesetzt 


werden. 


MODUL 7.1.6 


14BB8E REIHE KR EK 
194819 REM ABSPIELEN DER MELODIE 

14820 REMAKE RIO KK E 
148308 FOR 1=-54272 TO 34236:FOKE I,8:NEXT 
ı143a84B FOR 1-9 TO 2:V5=54272+7%*1l 

14250 FOKE WS+H2 , VYOREI,E) 

13069 POKE W5+3 YOKEL,SI 

14097208 POKE W5+5 , YOKHUL,SD 

1sESE8 FOKE YWS+6,VOZEL,E)I 

ı1499a NEST I 

141ac FOKE 593293,FIRC0) 

ı4lıa POKE 542934,FIRC1) 

13120 POKE 54295,FIRCE) 

14130 POKE 54296,F1I7C3 

ı14i14c FOR I=1 TO TL 

14150 POKE 54272 ,LF%X8,1I>:POKE 54279,LF% 
£1,I>:PCKE S4ESE,LFRIE,TD 

14160 POKE 54273,HF7X8,I13:POKE 54280,HF7% 
1,I2:POKE 54287 ,HFA12,12 

141708 POKE 54276, ,WF%X(O,ID:POKE 54253 ,WF- 
‘1,I>:POKE 54294, WFAC2,TD 

igısa FÜR TT=1 TO 308:NERT TT,I 

1419328 FOR TT=1 TO ZBO:NEKT:POKE 54296,8 
14208 POKE 54276,1:POKE S4233,1:FOKE 542 
Sseo,1 

1421E RETURN 
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Mit diesem Modul werden die in Modul 4 festgelegten Stimmeigenschaften mit 
Hilfe von POKE in den SID gesetzt. Danach werden sie nacheinander mit POKE 
zusammen mit der gewünschten Wellenform in die Hoch- und Niederfrequenzen 
gesetzt, um die Noten zu erzeugen, aus denen die Melodie besteht. 


Kommentar 


Zeile 14030: Der SID-Chip wird initialisiert, indem Null mit POKE in jede der Chip- 
Adressen gesetzt wird. 


Zeilen 14040-14090: Die in Modul 4 angegebenen Stimmeinstellungen werden mit 
POKE in SID gesetzt. 


Zeilen 14100-14130: Die Filtereinstellungen werden von jeder Stimme gemeinsam 
benutzt. Sie werden nur einmal mit POKE in den Chip gesetzt. 


Zeilen 14140-14180: Bis zur Melodielänge (TL) werden für jede Note die Hoch- 
und Niederfrequenzwerte in die beiden ersten Bytes jeder Stimmadresse des SID 
gesetzt, gefolgt von der Wellenform, die in die fünfte Adresse jeder Stimme ge- 
setzt wird. Dadurch wird die gewünschte Note aktiviert, die während der Dauer 
der Schleife in Adresse 14180 gespielt wird. 


Zeile 14190: Am Ende der Melodie wird eine etwas längere Schleife benutzt, da- 
mit der Ton ausklingen kann. Danach werden die drei Wellenformen zum Schwei- 
gen gebracht. 


Testen von Modul 7.1.6 


Dieser Test ist recht einfach. Wurden Melodiedaten eingegeben, wurde das Pro- 
gramm initialisiert, mindestens eine Stimme gesetzt und die Melodie dann kompi- 
liert, so sollte der Benutzer nun seine erste Schöpfung spielen können. Die Mu- 
sterdaten in Modul 8 spielen eine Skala von C mit den beiden ersten Stimmen. 


MODUL 7.1.7 


17898 REED 

17818 REM LÄADEN/SPEICHERN 

17226 REFDORAOR aka 

170329 INPUT "SESCHWÄARZ IKASSETTE EINLEGEN 
‚ BDANM IREYERS EINJIRETURNIREYERS AUSI--" 
‚c$ 

179848 FRINT "BLGRUENIIISPEICHERN":PRINT" 
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eEILÄDEN" 

178540 INPUT "TBLAUIEINGABE:"?7 

17868 ON Q GOTO 17970,17138:RETURN 

17878 OPEN 1,1,2,"MUSIC":PRINT#1L,TL 
ırezga FOR Isa TO 1:FOR J=8 TO 353:PRINTHI 
„NOXKTI,TDENERT JI,1 

17838 FOR I=a TO 2:FCR Isa TC 6:PRINT#1, 
VOZSI,JIENEXT J,1I 

ir1le& FOR Isa TO 3:FRINTHL,FIZSTII:NERT 
ıi7ılda FOR I=sa TO 2:FORIT=ATOTL:PRINT#I,LF 
ZXI,TDFRSEHFZEI,JIFREIWFACT,JDENEXKTI,I 
ir129 CLOSE1:RETURN 

17130 OPEN 1,1,8,"MUSIC": INPUTHL,TL 
ıi713Mm FOR I=8 TO 1:FOR J=8 TO 35:INPUT#1 
‚NCHLI,JDENEST 1,1 

17158 FOR I=a TO 2:FOR Isa TO GE: IMPUTHL, 
YORKI,ITIENEKT I,1 

Ir1Isea FCR I=s& TO 3: INPUTH1,FIMCIITNEHT 
171r7a FOR 1=-a TO 2Z:FORI=SB8TOTL: INPUTHL,LF 
ZEIT ,HFASTI,D,WFACT,ÄIISNEHKTISI 

17isa CLOSEIL:RETURN 


Hier handelt es sich um ein Standardmodul einer Datendatei, mit dem Melodieda- 
ten auf Band gespeichert werden können. 


MODUL 7.1.8 


18929 FEMHEERKEHHNIHTT EEK H 
13618 REM DATEN FUER STIMME 1 

ISA28 REMAKE HE 
13838 DATR 34,2,34,2,393,2,91,2,43,2,39,1 
‚38.1,35,2,498,1,938,1,8,8 

zeaae RETRO OO 

eagijda REM DATEN FUER STIMME 2 

22920 REMIS aka k 
2sa2da DATA 36,2,38,2,944,2,41,2,43,2,45,2 
‚47,2,9393,2,8,8 

21202 REIHE 

2elaio REM DATEN FUER STIMME 3 

2e1la28 REMOTE 

21032 DATA @,0 
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Kommentar 


Zeilen 1900-21030: Musterdaten, mit denen eine Skala von C gespielt werden 
kann. Soll eine Stimme benutzt werden, so muß dennoch 0,0 für sie eingegeben 
werden. 


Zusammenfassung 


Dieses Programm ist nur der Anfang aller Möglichkeiten der Tonschöpfung mit 
dem Commodore 64. Das Programm ist ein Arbeitspferd, mit dem der Benutzer 
seine eigene Musik entwickeln kann, die dann in andere Programme übertragen 
werden kann, wobei nur die Felder, in denen die Musik gespeichert ist, und Modul 
6 benutzt werden, das die Melodie tatsächlich spielt. 


Ein Schritt weiter 


Vorausgesetzt, es sind nicht zu viele Einschränkungen im Bereich des Speicher- 
platzes vorhanden, so kann dieses Programm auf verschiedene Art und Weise er- 
weitert werden: 


1. Warum sollte man nicht versuchen, die Wellenform für jede Note einzugeben, 
anstatt nur für jede Stimme Hierzu muß nur ein dritter Wert für jede zu spielende 
Note aufgenommen werden. 

2. Sollen längere Melodien gespielt werden, warum das Programm nicht so an- 
passen, daß es eine Schleife mit variabler Länge benutzt, mit der die Länge der 
Note festgelegt wird. Auf diese Weise wird sehr viel Platz im Feld gespart. Im end- 
gültigen Feld müßten nur noch der Notenwert und seine Länge gespeichert wer- 
den, wobei mit letzterer die Dauer der Zeitschleife festgelegt wird. Bedauerlicher- 
weise kann dies nur für eine Stimme erfolgen, da die Zeitschleife die Länge der 
Note für alle drei Stimmen festgelegt. 

3. Werden längere Töne mit mehr als einer Stimme benötigt, warum dann dem 
Programm nicht die Möglichkeit geben, Teile einer Melodie zu kompilieren, die 
später von einem Spielprogramm aufgenommen werden können, das die 
speicherplatzaufwendigen DATA-Anweisungen nicht benötigt. 
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Das Buch ’Der Commodore 64 in 
der Praxis’ beruht auf einer Samm- 
lung von soliden, hochentwickelten 
Programmen in Bereichen, wie Da- 
tenspeicherung, Finanzverwaltung, 
Grafik,Haushaltsverwaltung, Ausbil- 
dung und Geschicklichkeitsspielen. 
Die Programme wurden so erstellt, 
daß die Funktionen des C64 maxi- 
mal ausgenutzt werden. 


Einige der höher entwickelten 
Programme umfassen ein Textver- 
arbeitungssystem und einen Text- 
editor, ein Musik- und ein Synthe- 
sizerprogramm, einen Sprite-Editor 
und ein Programm, mit dem der Be- 
nutzer in den hochauflösenden 
Grafikmodus gehen kann. Dies ist 
bei dem Basic-Standardprogramm 
nicht möglich. 


Jedes der Programme wird im 
einzelnen Zeile für Zeile erläutert. 
Jedes der Programme besteht aus 
Universal-Subroutinen und Moduln, 
die — nachdem ihre Funktion ein- 
mal verstanden wurde — die 
Grundlage für andere Programme 
bilden, die später geschrieben wer- 
den müssen. Die detaillierte Be- 
sprechung jeder Subroutine führt 
zu besseren Programmier-Fähig- 
keiten. Außerdem erhält der Benut- 
zer durch diese Sammlung eine 
Vielzahl von praktischen Anwen- 
dungsprogrammen, die es sonst 
nur als teuere Software zu kaufen 
gibt. 
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